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Mit diesem Heft liegt Ihnen die erste Aus- 
gabe von „Peeker“ vor, die übrigens be- 
reits die 45. Zeitschrift der Verlagsgruppe 
Dr. Alfred Hüthig ist. „Peeker“ ist — wenn 
man von dem nicht allgemein erhältlichen 
Vereinsblatt des deutschen Apple-Clubs 
in Oberhausen absieht — das erste 
deutschsprachige Magazin, das sich aus- 
schließlich mit Apple-Computern befaßt. 
PEEK ist ein Befehl aus der Programmier- 
sprache BASIC, der die Untersuchung ei- 
ner Speicherstelle gestattet. „Peeken“ 
muß man immer dann, wenn man bei ei- 
nem Computer etwas genauer wissen will. 
Und genau dies ist die Zielsetzung unse- 
rer neuen Zeitschrift „Peeker“. Schön 
verpackte, aber oberflächliche Information 
hilft keinem Apple-Besitzer weiter, gleich- 
viel ob er Selbstprogrammierer oder reiner 
Anwender ist. Nehmen wir als Beispiel 
den Image-Writer als einen der für Apple- 
Computer erhältlichen Matrix-Drucker. Die 
Handhabung der nicht genormten Steuer- 
zeichen von Druckern war stets und ist im- 
mer noch ein leidiges Problem für alle Ap- 
ple-Benutzer. Mankönnte sich nunineinem 
Aufsatz über den Image-Writer auf ober- 
flächliches Blabla in der Art „Der Image- 
Writer hat ein gefälliges beige Design und iin 
seinem Herzen klopft ein kräftiger Prozes- 
sor“ beschränken. Besitzt man jedoch erst 
einmal einen Image-Writer, dann stellt 


man plötzlich ganz andere Dinge als ein 
pochendes Herz oder ein formschönes 
Styling fest. So kommt man beispielswei- 
se rasch zu der ernüchternden Erkenntnis, 
daß die mitgelieferte serielle Schnittstelle 
keinerlei druckerspezifische ROM-Soft- 
ware enthält und demzufolge viele nützli- 
che Befehle fehlen. Jetzt beginnt die Pha- 
se des „Peekens“, d.h. die Suche nach 
gezielten Detailinformationen, damit der 
Drucker das macht, was Sie von ihm er- 
warten. Und genau hier setzt unser „Pee- 
ker“ ein. Jedes Heft enthält eine Fülle 
nützlicher Utilities und Programme, Tips 
und Tricks, Test- und Erfahrungsberichte 
sowie Aufsatzserien für Anfänger und 
Fortgeschrittene. Damit Sie die teilweise 
sehr umfangreichen, professionellen Pro- 
gramme nicht abtippen müssen, erscheint 
je nach Bedarf etwa alle 2-3 Monate eine 
Sammeldiskette, die die größeren Pro- 
gramme aus den vorangehenden Heften 
von „Peeker“ zusammenfaßt. 
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65C02-Feature 


In diesem dreiteiligen Feature ist alles zu- 
sammengetragen, was Sie schon immer 
über den neuen 65C02-Prozessor wissen 
wollten. Im ersten Beitrag „Der neue 
65C02-Prozessor“ werden die neuen Be- 
fehle detailliert geschildert und an Hand 
von Beispielprogrammen erläutert. Im 
zweiten Aufsatz wird ein „65C02-Dis- 
assembler für Apple Ile und Il Plus“ vor- 
gestellt, der auf dem Ilc-Disassembler ba- 
siert und sogar auf Geräten lauffähig ist, 
die nur über den alten 6502-Prozessor 
verfügen. Schließlich werden im dfritten 
Beitrag „Accelerator Ile — Die neue Super- 
karte“ die Geheimnisse der brandneuen 
CMOS-Karte mit dem 4MHz-65C0020 ent- 
hüllt. Insbesondere wird gezeigt, wie 
man sich das Pseudo-ROM für modifizier- 
te Monitor- und Applesoft-ROMs zunutze 
machen kann. 


30 


Double Lores 


Double Hires auf dem Apple-Ile mit 64K- 
Karte ist seit einiger Zeit bekannt. Daß 
aber auch doppelte Lores-Grafik möglich 
ist, wird hier erstmals geschildert. Damit 
eröffnen sich neue Perspektiven für Spiel- 
programme, für die Hires zu fein und nor- 
male Lores zu grob in der Grafikauflösung 
ist. 


38 


Hires-Grafik-Dump 

Diese professionelle Utility gestattet den 
Hires-Bildschirmausdruck mit allen nur 
denkbaren Features wie horizontaler und 
vertikaler Verzerrung, Bildausschnittver- 
größerung usw. 
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Turbo-Pascal 


Für alle Pascal-Liebhaber, die auf das 
schnellere und komfortablere Turbo-Pas- 
cal umsteigen wollen, wird hier eine minu- 
tiöse Schritt-für-Schritt-Anleitung zur Sy- 
stemkonfigurierung und zur Erstellung Ih- 
res ersten „Turbo“ -Programms gebracht. 


94 


ProDOS-Patches 


Mehrere Patch-Programme zeigen, wie 
man erstens ProDOS auch bei geänder- 
tem Monitor-ROM sowie zweitens bei 80- 
Spur-Laufwerken zum Laufen bringt. 
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Primzahlen-Preisausschreiben 


Wollen Sie 500,-— DM gewinnen? Dann 
beteiligen Sie sich an unserem Prim- 
zahlen-Geschwindigkeitswettbewerb! 
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Der neue 





Ulrich Stiehl 


- Der neue 65C02-Prozessor 

-— 65C02 Disassembler für Apple Ile 
und Il Plus 

— Accelerator lle: Die neue Superkarte 


Der 65C02 ist eine Erweiterung und 
Verbesserung des alten 6502-Prozes- 
sors. Während der neue Apple Ilc den 
neuen 65C02 in der 1 MHz-Version be- 
reits eingebaut hat, besteht beim Apple 
I Plus und Apple Ile die Möglichkeit, 
den alten 6502 durch den neuen 65C02 
(indes nur in der 1-MHz-Version) aus- 
zuwechseln. Darüber hinaus kann die 
brandneue 65C02C-Karte namens „Ac- 
celerator Ile“, die mit 4 Megahertz ge- 
taktet ist, in den Apple Ile oder auch 
den Apple Il Plus eingesetzt werden, 
womit alle Programme bis zu 350% 
schneller laufen. 


65C02-Prozessor 


Die nachfolgenden technischen Details 
sowie das Diagramm basieren auf Unterla- 
gen der Rockwell International GmbH, 
Fraunhoferstraße 11, 8033 München-Mar- 
tinsried, sowie auf eigenen Untersuchun- 
gen anhand der Accelerator-Karte. Neben 
dem sog. R65C02 liefert Rockwell noch 





die Derivate R65C102 und R65C112. Den 
R65C02 gibt es (a) in Keramik- und Pla- 
stik-Versionen, (b) in 1, 2, 3 und 4 MHz- 
Versionen sowie (c) in kommerziellen und 
industriellen Temperatur-Versionen (im 
ersteren Fall O Grad bis 70 Grad Celsius). 














Alle 65C02-Prozessoren werden als 
CMOS-CPUs geliefert, während die alten 
6502-Prozessoren NMOS-CPUs waren 
(CMOS = Complementary Metal Oxide 
Semiconductor). Von Vorteil ist der erheb- 
lich geringere Stromverbrauch gegenüber 
der NMOS-Technologie. Von Nachteil ist 
dagegen die relativ hohe Empfindlichkeit 
gegenüber statischer Elektrizität. (Bei- 
spielsweise sollte man sich bei der Acce- 
lerator-Karte erst einmal „entladen“, in- 
dem man etwa auf das Netzteil-Metallge- 
häuse des Apples greift, bevor man die 
Karte anfaßt.) 


Verbesserungen 


Neben den eigentlichen neuen Befehlen 
sind folgende technische Verbesserungen 
implementiert worden: 


a) Ungültige Operationscodes 


Ungültige Op-Codes, z.B. $02, werden 
jetzt allesamt als NOPs bzw. $EA behan- 
delt. Beispiel für Apple Il Plus/lle: 

CALL -151 

0300: 02 4C 59 FF 

0300G 

— Beim Apple Il Plus bzw. Ile mit normalem 
6502-Prozessor würde der Apple nach 
300G hängen“. 

— Beim Apple IIc oder beim Apple Ile mit 
Accelerator Ile würde $02 ignoriert und 
dann der nächste Befehl ab $0301 ausge- 
führt. 

Für das Debuggen von Maschinenpro- 
grammen ist die Behandlung von Nicht- 
Op-Codes als NOPS indessen eher nach- 
teilig, da man hierbei u.U. nie feststellt, 
daß das Programm „Schrott-Stellen“ ent- 
hält. 


b) Bug beim indirekten JMP 


Der Fehler beim indirekten Sprung, z.B. 
JMP ($10FF), wurde beseitigt. Dieser Feh- 
ler trat nur dann auf, wenn sich das Low 
Byte der indirekten Adresse in einer belie- 
bigen Speicherstelle $??FF befand, also 
das Low Byte am Ende der letzten Page 
und das High Byte am Anfang der näch- 
sten Page stand. Beispiel: 

CALL -151 

0300: 4C 59 FF JMP $FF59 (Reset-Adresse) 

0303: 6C FF 10 JMP ($10FF) 


10FF: 00 Low Byte von $0300 
1100: 03 High Byte von $0300 
0303G 


Nach 303G erfolgt beim neuen 65C02 ein 
korrekter indirekter Sprung zur Adresse 
$0300, die sich der Prozessor aus $10FF 
(Low Byte) und $1100 (High Byte) holt. 


Demgegenüber würde sich der alte 6502 ment A ® 


irttümlicherweise das Low Byte von Spei- 
cherstelle $10FF und das High Byte von 
Speicherstelle $1000 holen. Um dies zu 
beweisen, geben wir folgendes ein: 

1000: 03 (High Byte!) 

10FF: 00 (Low Byte!) 

1100: 00 (High Byte wird ignoriert!) 
0303G 

Beim alten 6502 springt der Prozessor 
nunmehr nicht nach $0000, sondern nach 
$0300. 


c) Dezimalmodus 


Nach Hardware-Reset, d.h. nach Drücken 
der Ctrl-Reset-Tasten, schaltet der 65002 
nunmehr automatisch auf Binärmodus 
bzw. Nicht-Dezimalmodus (CLD) um. Da 
dies beim alten 6502 nicht der Fall war, 
mußte CLD durch die Software-Reset- 
Routine bei $FF59: CLD bzw. bei $FAB2: 
CLD nachgeholt werden. 


Bei ADC und SBC im Dezimalmodus sind 
die Flags N (Negative), V (Overflow) und Z 
(Zero) nunmehr gültig, wobei diese Befeh- 
le jedoch dann 1 Takt mehr benötigen. 
Beim alten 6502 waren bei Dezimalopera- 
tionen die N-, V- und Z-Flags unbestimmt 
bzw. ungültig. 


d) Read-Modify-Write 


Die direkten Speicheränderungsbefehle 
(Read-Modify-Write-Befehle) DEC, INC, 
ASL, LSR usw. werden beim 6502 mit 1 
Lese- und 2 Schreibzyklen und bei 65C02 
mit 2 Lese- und 1 Schreibzyklus ausge- 
führt. Inwieweit dadurch die Softswitches 
des Apple Il, z.B. $C030 für Lautsprecher, 
andersartig beeinflußt werden, konnte bis- 
lang nicht festgestellt werden. Bei den 
Softswitches ist es bekanntlich nicht irrele- 
vant, ob man auf diese mit LDA oder STA 
zugreift. Sinngemäßes gilt für DEC, INC 
USW. 


Erweiterungen 
Neue Befehle 


BRA = Op-Code $80 = Branch relative 
always 


Dieser Befehl bewirkt eine unbedingte, re- 
lative Verzweigung, während die alten be- 
dingten Verzweigungsbefehle BCC, BCS 
usw. von dem jeweiligen Flag abhängen. 
Der BRA-Befehl ist insbesondere für relo- 
kative Programme sehr nützlich. Beim al- 
ten 6502 war man gezwungen, Schein- 
flags zu setzten, um eine unbedingte, rela- 
tive Verzweigung zu erzwingen, z.B. CLV 
BVC LABEL. 


DEC A = DEA = Op-Code $3A = Decre- 


E FEATURE aM 


INC A = INA = Op-Code $1A = Incre- 
ment A 


DEC A vermindert den Akkumulator um 1: 
A = A - 1 und entspricht insoweit den 
DEY- und DEX-Befehlen. Die Assembler- 
Syntax ist DEC A, DEC oder DEA. INC A 
erhöht den Akkumulator um 1:A=A +1 
und entspricht den INY- und INX-Befeh- 
len. Die Assembler-Syntax ist entspre- 
chend INC A, INC oder INA. 

DEC A ersetzt die Folge SEC SBC #1 und 
INC A ersetzt CLC ADC #1, wodurch 
einige Prozessor-Takte eingespart werden 
können. 


PHX = Op-Code $DA = Push X on Stack 
PHY = Op-Code $5A = Push Y on Stack 
PLX = Op-Code $FA = Pull X from Stack 
PLY = Op-Code $7A = Pull Y from Stack 


Bei alten 6502 konnte man nur den Akku- 
mulator direkt auf den Stack retten. Wollte 
man auch noch die X- und Y-Register ret- 
ten, so mußte man etwa wie folgt ko- 
dieren: 


PHA Vorher: A,X und Y auf Stack 
TXA schieben 

PHA 

TYA 

PHA 

PLA Nachher: Y, X und A vom Stack 
TAY holen 

PLA 

TAX 

PLA 

Beim 65C02 geht es nunmehr viel ele- 
ganter: 

PHA Vorher: A,X und Y auf Stack 
PHX schieben 

PHY 

PLY Nachher: Y, X und A vom Stack 
PLX holen 

PLA 


Dadurch wird das Programm nicht nur kür- 
zer, sondern auch schneller, da jeweils 2 
Befehle eingespart werden. 


STZ $1000 = STZ Absolute Adresse = 
Op-Code $9C 

STZ $1000,X = STZ Absolute Adresse, 
X = Op-Code $9E 

STZ $00 = STZ Zeropage = Op-Code 
$64 

STZ $00,X = STZ Zeropage, X = Op- 
Code $74 


Diese Befehle setzen eine Speicherstelle 
auf Null bzw. Zero $00. Das „Z“ in STZ 
steht nicht für Zeropage-Adressierung, 
sondern für Zero = Null = Byte $00. Die 
Register A, X und Y bleiben unverändert. 
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R 65C02 Interne Architektur 


Beim 6502 muß man demgegenüber ein 
Register „opfern“, um eine Speicherstel- 
le zu löschen, z.B. LDA #$00 STA 
ADRESSE. 


TRB $FFFF = Test and reset memory bits 
with accumulator (Absolute Adresse) = 
Op-Code $1C 
TRB $00 = Test and reset memory bits 
with accumulator (Zeropage-Adresse) = 
Op-Code $14 


Dieser Befehl ist neu und entspricht einem 
AND-Befehl mit umgekehrten Vorzeichen, 
d.h. Undierung mit Einerkomplement des 
Bitmusters. Beim alten 6502 würde man 
etwa wie folgt simulieren: 

LDA BITMUSTER 

AND MEMORY 

EOR #% 11111111 

STA MEMORY 

TRB besagt, daß eine Speicherstelle M 
durch den Inhalt des Akkumulators A ver- 
ändert wird, wobei A selbst unverändert 
bleibt, und zwar blendet TRB bei M dieje- 
nigen Bits weg, die bei A gesetzt sind. 
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A 1111 1111 


A 1111 0000 


Beispiele: 

M 1111 1111 LDA #$00 TRB M, wobei M 
A 0000 0000 vorher $FF 
M 1111 1111 M nachher $FF 


M 1111 1111 LDA #$FF TRB M, wobei M 
A 1111 1111 vorher $FF 


M 0000 0000 M nachher $00 


M 0000 0000 LDA #$FF TRB M, wobei M 
vorher $00 


M 0000 0000 M nachher $00 


M 0000 0000 LDA #$00 TRB M, wobei M 
A 0000 0000 vorher $00 


M 0000 0000 M nachher $00 


M 1111 1111 LDA #$7E TRB M, wobei M 
A 0111 1110 vorher $FF 


M 1000 0001 M nachher $81 


M 1010 1010 LDA #$F0 TRB M, wobei M 
vorher $AA 


M 0000 1010 M nachher $0A 


A 1111 0000 


TSB $FFFF = Test and set memory bits 
with accumulator (Absolute Adresse) = 
Op-Code $0OC 

TSB $00 = Test and set memory bits with 
accumulator (Zeropage-Adresse) = Op- 
Code $04 


TSB entspricht dem ORA-Befehl, der je- 
doch direkt auf eine Speicherstelle ange- 
wandt wird. 7SB blendet bei M diejenigen 
Bits hinzu, die bei A zusätzlich gesetzt 
sind. Beim alten 6502 würde man dies 
simulieren mit 


LDA BITMUSTER 
ORA MEMORY 
STA MEMORY 


Einige Beispiele: 

M 1111 1111 LDA #$00 TSB M, wobei M 
A 0000 0000 vorher $FF 
M 1111 1111 M nachher $FF 


M 1111 1111 LDA #$FF TSB M, wobei M 
A 1111 1111 vorher $FF 


M 1111 1111 M nachher $FF 


M 0000 0000 LDA #$FF TSB M, wobei M 
A 1111 1111 vorher $00 


M 1111 1111 M nachher $FF 


M 0000 0000 LDA #$00 TSB M, wobei M 
A 0000 0000 vorher $00 


M 0000 0000 M nachher $00 


M 1111 1111 LDA #$7E TSB M, wobei M 
A 0111 1110 vorher $FF 


M 1111 1111 M nachher $FF 


M 1010 1010 LDA #$F0 TSB M, wobei M 
vorher $AA 


M 1111 1010 M nachher $FA 


Während die Befehle AND und ORA nur 
den Inhalt des Akkumulators beeinflussen, 
können mit TRB und TSB die Inhalte von 
Speicherstellen direkt verändert werden, 
wobei der Akkumulator unverändert bleibt. 
Die Befehlsfolge lautet stets: 


LDA BITMUSTER 
TSB MEMORY 
oder 

LDA BITMUSTER 
TRB MEMORY 


Nehmen wir an, bei einem Textverarbei- 
tungs-Text, der sich im Speicher $2000- 
$3FFF befände, sollte bei jedem Buchsta- 
ben Bit 7 gelöscht werden. Zu diesem 
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Zweck müßte man beim alten 6502 den 
gesamten Bereich mit der Befehlsfolge 
LOOPLDAM 

AND #%01111111 

STAM 
..jetzt M inkrementieren und erneut zu 
LOOP... 
„bearbeiten“. Hingegen würde man beim 
neuen 65C02 mit der Schleife 

LDA # % 10000000 
LOOP TRBM 
... Jetzt M inkrementieren und erneut zu 
LOOP... 
zu einer erheblich kürzeren Ausführungs- 
zeit kommen. 


BBR, BBS, RMB, SMB 


BBR (Branch on bit reset), BBS (Branch 
on bit set), RMB (Reset memory bit) und 
SMB (Set memory bit) sind laut Auskunft 
der Firma Rockwell nur beim R65C02 als 
Zeropage-Bitmanipulationsbefehle imple- 
mentiert. Meine Accelerator-Karte ist mit 
einem NCR-65C02C bestückt, der diese 
Befehle nicht kennt. Dasselbe gilt für den 
im Apple Ilc befindlichen 65C02. Auch der 
Apple-IIc-Disassembler verwendet die 
neuen Op-Codes nicht. Es wird empfoh- 
len, auf die Benutzung dieser OP-Codes 
zu verzichten, um Kompatibilität mit allen 
65C02-Varianten zu gewährleisten. 


Neue Adressierungsarten 
Indirekte nicht-indizierte Adressierung 


Anstelle der häufig benutzten Adressie- 
rungsform 

LDA (INDIREKT), Y 

usw., die bislang nur mit Hilfe des Y-Regi- 
sters implementiert werden konnte, be- 
steht nunmehr die zusätzliche Möglichkeit, 
auf Y völlig zu verzichten. Im einzelnen gilt 
dies für folgende Befehle: 


LDA (INDIREKT) = Op-Code $B2; neben 
LDA (INDIREKT), Y 
STA (INDIREKT) = Op-Code $92; neben 
STA (INDIREKT), Y 
ORA (INDIREKT) = Op-Code $12; neben 
ORA (INDIREKT), Y 
EOR (INDIREKT) = Op-Code $52; neben 
EOR (INDIREKT), Y 
AND (INDIREKT) = Op-Code $32; neben 
AND (INDIREKT), Y 
ADC (INDIREKT) = Op-Code $72; neben 
ADC (INDIREKT), Y 
SBC (INDIREKT) = Op-Code $F2; neben 
SBC (INDIREKT), Y 
CMP (INDIREKT) = Op-Code $D2; neben 
CMP (INDIREKT), Y 


Dies ist eine nützliche Erweiterung, da 
man nunmehr bei Array-Manipulationen 
nicht mehr permanent das Y-Register ret- 
ten bzw. für die indizierte Adressierungs- 
form freihalten muß. 


BIT-Adressierung 


Der BIT-Befehl wurde um drei neue 
Adressierungsarten erweitert. Insgesamt 
gibt es jetzt folgende BIT-Instruktionen: 


BIT $00 Zeropage-Adressierung (alt) - 
Op-Code $2C 

BIT $1000 Absolute 

Adressierung (alt) - Op-Code $24 

BIT $00,X Indizierte Zeropage-Adressie- 
rung (neu) - Op-Code $34 

BIT $1000,X Indizierte absolute Adressie- 
rung (neu) - Op-Code $3C 

BIT #$00 Unmittelbare Adressierung 
(neu) - Op-Code $89 


Die unmittelbare Adressierungsform 
scheint mir nutzlos zu sein, da hiermit 
nicht Bit 7 (N-Flag) und Bit 6 (V-Flag) 
getestet werden können, was für alle an- 
deren BIT-Adressierungsarten zutrifft. 


Indizierter, indirekter JMP 


JMP ($1000,X) - Op-Code $7C - ist eine 
wertvolle Erweiterung des indirekten 
Sprungs für den Fall, daß eine Sprung- 
adresse einer Tabelle entnommen werden 
soll. Nehmen wir an, ab Speicherstelle 
$1000 steht folgende fingierte Sprungta- 
belle: 

1000: 00 20 $2000 O0. Sprung 

1002: 00 30 $3000 1. Sprung 

1004: 00 40 $4000 2. Sprung usw. 
Nehmen wir fernerhin an, der zweite 
Sprung sei auszuführen. Dann verfahren 


wir wie folgt: 

LDA #2 ‚2. Sprung 

ASL 2x*2=4 = $1004 
TAX 


JMP ($1000,X) ‚entspricht JMP $3000 
D.h. $1000 + X = $1004 enthält das Low 
Byte und $1004 + 1 = $1005 enthält das 
High Byte der effektiven Sprungadresse. 


Das nachfolgende „65C02-Demo einiger 
neuer Op-Codes“ veranschaulicht die 
Anwendung der neuen Befehle und 
Adressierungsarten. Dieses Demo zeigt 
übrigens folgende Hexzahlen und ASCII- 
Zeichen an: 

030201 

01 

BCA 

OA AF 


FEATURE u 


Zur Assemblierung wurde der zu den von 
Firma Apple herausgegebenen „ProDOS 
Assembler Tools“ gehörige 6502-Assem- 
bler verwendet, der ebenso wie der „Bug- 
byter Debugger“ die neuen Befehle verar- 
beitet. Der Assembler-Quellcode muß zu 
diesem Zweck mit dem Pseudo-Op-Code 
„X6502“ eingeleitet werden. 


Zusätzlich zu dem Source-Code des 
65C02-Demos wird das disassemblierte 
Listing in der Form abgedruckt, wie es mit 
dem „65C02-Disassembler“, der im 
nachfolgenden Aufsatz geschildert wird, 
erzeugt werden kann. 


Schlußbemerkung 


a) Da der Apple II Plus und der Apple Ile 
im Gegensatz zum Apple Ilc „von Hause 
aus. den 65C02 nicht enthalten, sollte 
man in kommerziellen Programmen, die 
für alle Gerätetypen gedacht sind, auf die 
neuen Op-Codes verzichten. 


b) Bei eigenen Programmen lohnt es sich 
u.U., den alten Apple Il Plus bzw. Apple Ile 
mit dem neuen 65C02 zu bestücken und 
die neuen Op-Codes zu verwenden, da 
Programme dann etwas kompakter und 
zugleich etwas schneller werden. Der Vor- 
teil ist Jedoch nur in Spezialfällen überzeu- 
gend. Grundsätzlich kann man auch ohne 
die neuen Op-Codes auskommen. 


c) Wichtiger scheint mit der Umstand, daß 
der 65C02 weniger Wärme entwickelt. 
Wer sich z.B. noch an die „brütende Hit- 
ze“ der alten Videx-Karte im Apple Il Plus 
zurückerinnern kann, der wird von der 
„wohligen Kühle“ der Accelerator-Ile-Kar- 
te im Apple Ile angenehm überrascht sein. 
Ventilatoren werden dann überflüssig. 


d) Der 65C02-Prozessor wird erst dann 
richtig munter, wenn er mit mehr als 1 
MHz getaktet ist, d.h. mit etwa einem 3,5- 
MHzZ-65C02 und der Verwendung der 
neuen Op-Codes laufen entsprechende 
Programme bis zu 400% schneller als vor- 
her, womit ein 65C02C durchaus an die 
Leistungsfähigkeit von 16-Bit-Prozesso- 
ren heranreichen kann. Deshalb ist es be- 
dauerlich und unverständlich, weshalb die 
Firma Apple den Apple Ile und Apple Ilc 
nicht mit den schnelleren Prozessor-Va- 
rianten bestückt hat. 
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0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0300: 
0302: 
0303: 
0303: 
0303: 
0303: 
0305: 
0307: 
0309: 
O30A: 
030B: 
030C: 
030D: 
0310: 
8311: 
0312: 
0315: 
0316: 
0317: 
O31A: 
O31A: 
O31C: 
O31F: 
O31F: 
O31F: 
O31F: 
0321: 
0323: 
0326: 
0329: 
O32B: 
032D: 
O32D: 
O32D: 
032D: 
O32D: 
O32D: 
0330: 
0333: 
0335: 
0337: 
O33A: 
035C: 
0O33F: 
033F: 
O33F: 
O33F: 
O33F: 
0341: 
0344: 
0345: 
0348: 
0349: 
O34AA: 
034D: 
O34F: 
0352: 
0352: 
0352: 
0352: 
0354: 
0357: 
0359: 
035C: 
O35F: 
0362: 
0364: 
0367: 
O36A: 
O36D: 
O36E: 
O36E: 
0O36E: 
O36E: 


80 
00 


B2 


01 


01 


05 


DA 


DA 


DA 


8D 
ED 


ol 
FF 
00 


FE 
00 


c2 
ED 


ED 
8D 
ED 


CE 


FD 


FD 


FD 


FD 


10 
10 


10 
10 


FD 


FD 


FD 


FD 


FD 


FD 


0300 


0300 
00CE 


FDED 
FDDA 


0303 


oo os u PuvdHr 


ORG $300 
* 
* 65C02C-Demo einiger neuer Op-Codes 
vv J mm mm mm — —— 
* 
X6502 ‚65C02C-Pseudo-Op 
* 
IND EQU $CE 
COUT EQU _S$FDED ; PRINT 
PRBYTE EQU $FDDA ; HEXOUT 
* 
%* 
* Unbedingte, relative Verzweigung 
* 
BRA STETS ;‚Verzeigung erfolgt stets 
BRK ;‚BRK wird übersprungen! 
* 
* Push/Pull X/Y on/from Stack 
* 
STETS LDX #1 
LDY #2 
LDA #3 
PHX ;Push X auf Stack 
PHY ;Push,Y auf Stack 
PHA 
PLA 
JSR _PRBYTE 
PLY ;Pull Y vom Stack 
TYA 
JSR PRBYTE 
PLX ;Pull X vom Stack 
TXA 
JSR PRBYTE 
. 
LDA +#$8D ;Return 
JSR COUT 
* 
* $1000, $10FF, $00FE und $00FF auf 1 setzen 
* 
LDA #1 
LDX +#$FF 
STA $1000 
STA $1000,X 
STA $00FE 
STA $0000,X 
* 
* $1000, $10OFF, $00FE und $00FF auf 0 setzen 
* STZ = Store Zero entspricht LDA #$00 STA Adresse 
* A-Register bleibt jedoch unverändert! 
* 
STZ _$1000 
STZ $1000,X 
STZ _$00FE 
STZ _$0000,X 
JSR PRBYTE ;A noch 1! 
LDA +#$8D ;Return 
JSR COUT 
%* 
* INC A (= INA) und DEC A (= DEA) 
* Increment/Decrement von A-Register 
%* 
LDA #'B'+$80 
JSR COUT zB 
INC A ;‚A=4+1 
JSR COUT eh 
DEC A ;A=A-1 
DEC A ;‚A=A-1 
JSR _COUT ‚'A' 
LDA +#$8D ‚Return 
JSR COUT 
%* 
* Test Memory Bits with Accumulator 
* 
LDA #%11110000 
TRB BYTEIl ‚Reset Bits 
LDA #%00001111 
TSB BYTE2 ‚Set Bits 
LDA BYTEI 
JSR _PRBYTE 
LDA #$A0 
JSR _COUT 
LDA BYTE2 
JSR PRBYTE 
RTS ‚Ende Demo 
* 
* Indirekt Adressierung ohne Y 
%* 
LDA (IND) 


0370: 


92 


0372: 


0372: 
0374: 


0376 


12 


32 


0378: 


0378 


O37A: 


TR 
F2 


037C: 


037C 


:D2 


O3TE: 
O3TE: 
OZTE: 


O3TE: 
0380: 
0382: 


89 
54 
SC 


0385: 


0385: 


0386 


AA 
:AA 


CE 
CE 
CE 
CE 


CE 
CE 


CE 


AO 


00 


AO 


105 * 


Neue BIT-Adressierungsarten 


106 BYTEl 
107 BYTE2 


Disassembler-Listing zu 
„65C02-Demo einiger neuer Op-Codes“ 


0300- 
0302- 
03503- 
0505- 
0507- 
0309- 
030A- 
030B- 
030C0- 
030D- 
0310- 
0311- 
0312- 
0315- 
0316- 
0317- 
O31A- 
031C- 
O31F- 
0321- 
0323- 
0326- 
0329- 
0352B- 
052D- 
0530- 
0353- 
0335- 
0337- 
055A- 
055C- 
053F— 
0541- 
0344— 
0345- 
0348- 
0349- 
O34A- 
034D- 
O54F-— 
0352- 
0354—- 
0357- 
0359- 
035C- 
035F- 
0362- 
0564-— 
0367- 
0O56A- 
036D- 
036E- 
0370- 
0372- 
0374- 
0376- 
0378- 
037A- 
037C- 
0O37E- 
0380- 
0382- 
0385- 
0386-— 


80 


01 


0l 


02 


05 


DA 


DA 


FD 


FD 


FD 


FD 


10 
10 


10 


10 


FD 


FD 


FD 


FD 


FD 
FD 
05 
05 
03 
FD 
FD 


05 
FD 


BRA 
BRK 
LDX 
LDY 
LDA 
PHX 
PHY 
PHA 
PLA 
JSR 
PLY 
TYA 
JSR 
PLX 
TXA 
JSR 
LDA 
JSR 
LDA 
LDX 
STA 
STA 
STA 
STA 
STZ 
STZ 
STZ 
STZ 
JSR 
LDA 
JSR 
LDA 
JSR 
INC 
JSR 
DEC 
DEC 
JSR 
LDA 
JSR 
LDA 
TRB 
LDA 
TSB 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
RTS 
LDA 
STA 
ORA 
EOR 
AND 
ADC 
SBC 
CMP 
BIT 
BIT 
BIT 


$0303 


#$01 
+#$02 
#$03 


$FDDA 


$FDDA 


$FDDA 
+$8D 
$FDED 
#$01 
+$FF 
$1000 
$1000,X 
$FE 
$00,X 
$1000 
$1000,X 
$FE 
$00,X 
$FDDA 
+$8D 
$FDED 
+$C02 
$FDED 


$FDED 


$FDED 
+$8D 
$FDED 
+$FO 
$0385 
+$0F 
$0386 
$0385 
$FDDA 
#$AO 
$FDED 
$0386 
$FDDA 


($CE) 
($CE) 
($CE) 
($CE) 
($CE) 
($CE) 
($CE) 
($CE) 
#$A0 
$A0,X 
$A000,X 


STA 


ORA 
EOR 
AND 


ADC 
SBC 


CMP 


BIT 
BIT 
BIT 


DFB 
DFB 


(IND) 


(IND) 
(IND) 
(IND) 


(IND) 
(IND) 


(IND) 


+$AO 
$A0,X 
$A000,X 


%10101010 
%10101010 








REBEL % or EEE REES je 
3052200002022 EEE 





Tips 
und Tricks 







Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 

1984, 226 S., 3 Abb., kart., 
DM 34,- 

ISBN 3-7785-1047-9 
Hüthig Verlag, Heidelberg 


„Apple Assembler“ wendet sich 
an alle, die bereits Anfängerkennt- 
nisse der 6502-Programmierung 
haben - z.B. aufgrund des Buches 
„Apple Maschinensprache“ — und 
nunmehr ein Nachschlagewerk für 
ihren Apple Il Plus/lle/llc suchen, 
in dem alle wichtigen ROM-Routi- 
nen sowie eine Vielzahl sonstiger 
Hilfsprogramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt dieses 
Buch über 40 Utilities, darunter 
mehrere völlig neuartige Program- 
me wie Double-Lores, Double Hi- 
res, Screen-Format u.a. 

Der erste Teil enthält ein Repetito- 
rum der wichtigsten Befehle, 
Adressierungsarten und sonstigen 
Besonderheiten des 6502. 


Mit ausführlichen « 
Programmbeispielen 


Ulrich Stiehl 





Im zweiten Teil werden alle Adres- 
sen des Monitors zusammenge- 
stellt, die für Assembler-Program- 
mierer von Nutzen sein können. 
DarüberhinausfindetderLeser Un- 
terroutinen für hexadezimale Ad- 
dition/Subtraktion/Multiplikation/ 
Division, Binär-Hex-ASCIl-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit der 
Speicherverwaltung der Language 
Card und der Ille-64K-Karte und 
enthält Move-Programme zum 
Verschieben von Daten in die und 
aus der Language Card sowie der 
64K-Karte. 

Der vierte Teil ist dem Applesoft- 
ROM gewidmet und listet eine 
große Anzahl nützlicher Interpre- 
ter-Adressen. Bei den Utility-Pro- 
grammen liegt das Schwergewicht 
auf Fließkommamathematik ein- 
schließlich Print Using. 








Der letzte Teil behandelt den Text- 
und Graphikspeicher. Neben ei- 
nem professionellen Maskengene- 
ratorprogramm werden auch Routi- 
nen zur Double-Lores- und Dou- 
ble-Hires-Grafik vorgestellt. 


Aus dem Inhalt: 
6520-Repetitorium — Monitor-ROM 
— Speicherverwaltung — Applesoft- 
ROM - Text- und Grafikspeicher 


© 
or 
ERTN 
“RE 
© 
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65C02-Disassembler 


Dieser hier vorgestellte 65C02-Disas- 
sembler basiert auf dem im Jahre 1977 
von Steve Wozniak geschriebenen 
6502-Disassembler, der später für den 
Apple lic gepatcht und von uns nun- 
mehr für den Apple Il Plus und Ile modi- 
fiziert wurde. Da unsere Variante die 
neuen Op-Codes selbst nicht benutzt, 
kann sie auch als “Cross“-Disassem- 
bler auf denjenigen Apple-Modellen 
eingesetzt werden, die nicht mit dem 
65C02-Prozessor bestückt sind. 


14 


für Apple Ile und Il Plus 


Wenn man sich in seinen Apple Ile oder 
Apple Il Plus einen 65C02-Prozessor ein- 
gebaut hat oder wenn man eine Accelera- 
tor-Ile-Karte benutzt, wird einem erst rich- 
tig bewußt, wie wertvoll der im Monitor- 
ROM enthaltene Disassembler ist, denn 
dieser funktioniert jetzt nicht mehr. Ge- 
nauer gesagt, werden die neuen Op- 
Codes des 65C02 als „???“ gelistet. Der 
Apple IIc enthält zwar in dem umgeschrie- 
benen Monitor-ROM einen für den 65C02 
gepatchten Disassembler, aber dieser läßt 
sich nicht ohne weiteres in die Language 
Card des Apple Ile oder Il Plus kopieren, 
da er teilweise Routinen überschreiben 
würde, die dringend benötigt werden, z.B. 
bei $FAB8 die PWRUP-Routine (Power- 
Up, Disk-Booten). Grundsätzlich gilt: Der 
ROM-Bereich $D000-$FFFF (Applesoft- 
Interpreter und Monitor) des Apple Il und Il 
Plus läßt sich in die Language Card des 
Apple Ile kopieren. Dagegen läßt sich we- 
der der ROM-Bereich des Apple Ile noch 
der des IIc in die LC des Apple Il oder II 
Plus schieben. Ferner kann auch der 
ROM-Bereich des Apple Ile nicht in die LC 
des Apple IIc verlegt werden und umge- 
kehrt. Die Gründe hierfür liegen in dem 
INTCXROM-Bereich $C100-$CFFF, der 


beim Apple Il Plus fehlt und beim Apple Ile 


und IIc völlig unterschiedliche Einsprung- 
adressen hat. 


Deshalb habe ich den im Apple Ilc enthal- 
tenen 65C02-Disassembler dergestalt 
modifiziert, daß er uneingeschränkt auf 
dem Apple Ile und II Plus lauffähig ist. 
Allerdings mußten aus Platzgründen die 
Lores-Grafik-Routinen teils überschrieben 
werden, die deshalb nicht benutzt werden 
dürfen, während der modifizierte Monitor 
in der Language Card aktiv ist. Notfalls 
muß man den Bereich $F82A-$F878 aus 
dem Lores-Bereich heraus in einen ande- 
ren Bereich verlegen. 


Es wurde darauf geachtet, daß der Disas- 
sembler die neuen Op-Codes selbst nicht 
benutzt, so daß man damit sogar 65C02- 
Maschinenprogramme disassemblieren 
kann, wenn man nicht über einen 65C02- 
Prozessor verfügt. 





Das Programm 5„65C02-DISASSEM- 
BLER“ gliedert sich in folgende Teile: 


$6000-$604D enthält eine Move-Routine, 
die den eigentlichen Disassembler, der 
zunächst im Speicher ab $604E liegt, in 
die Language Card verschiebt. 


$F82A-$F878 enthält eine Erweiterung 
des alten 6502-Disassemblers. Aus Platz- 
gründen mußte die Program-Counter-Ad- 
just-Routine nach $F86A verschoben wer- 
den, doch steht an der ursprünglichen 
Stelle von PCADJ = $F953 ein Sprung 
nach $F86A, so daß die Kompatibilität mit 
den anderen Monitor-Routinen gewahrt 
bleibt. 


$F879-$FASF enthält den Hauptteil des 
Apple IIc-Disassemblers mit einigen Pat- 
ches für den Apple Ile und II Plus. Man 
beachte, daß es zwei Mnenomics-Tabel- 
len gibt, und zwar zum einen die erweiter- 
te alte Mnenomics-Tabelle ab $FYF9 so- 
wie zum anderen eine neue Mnemonics- 
Tabelle ab $F853. Der 65C02-Disassem- 
bler berücksichtigt alle Mnemonics, die in 
den Programmzeilen 514-585 gelistet 
sind. Dazu gehören nicht die Befehle BBR, 
BBS, RMB und SMB, über die der Rock- 
well R65C02 zusätzlich verfügt; diese 
werden als „???“ gelistet. 


Für diejenigen, die den Disassembler - 
z.B. wegen der nicht berücksichtigen Op- 
Codes - ändern wollen, ist nachfolgend 
der Source-Code gelistet. Da man dieses 
Programm infolge der mehrfachen ORGs 
in den Zeilen 1 und 120 als Assembler- 
Hexdump nur mit Mühe eingeben könnte, 
ist außerdem noch ein „normaler“ Hex- 
dump hinzugefügt. 


us 





6000: 
6003: 


6006: 
6008: 
600A: 
600C: 
6SO0E: 
6010: 
6012: 
6013: 
6015: 
6017: 


6019: 
6O1B: 
601D: 
6OlF: 


6021: 
6023: 
6025: 
6027: 


6029: 
602B: 
602D: 
60ZF: 
6031: 
6033: 
6035: 
6037: 
6039: 
603B: 
603D: 
605F: 
6041: 
6043: 
6045: 


6047: 
604AA: 
604D: 


AD 
AD 


A9 
85 
A9 
85 


A9 
85 


85 


AO 
Bl 
9 
E6 
DO 
E6 
E6 
DO 


AS 
c9 
90 
A5 


90 


AD 
AD 
60 


81 CO 
8l CO 


00 
FC 
DO 
FD 
FC 
FC 


F9 
FD 
F5 


85 CO 
85 CO 


ooıV91 And 


ORG 
. 


* 
* 


$6000 


* 65C02-DISASSEMBLER 


KRRKKRRRRIT HH KK 


* 


%* 


* Move-Routine x 


* 


* 


RR 

%* 

* APSOFT = Interpreter + Monitor 
x $D000-$FFFF 

* REST = Sonstiger Monitor 

* $FA4O-$FFFF 


” 
APSOFT EQU 


REST EQU 
IND1l EQU 
IND2 EQU 


* 


$D000 
$FA4O 
$FC 
$FE 


;-$FD 
;-$FF 


* Language Card schreibfähig 
* machen: Read ROM, Write LC 


* 
MOVEI 

LDA 
* 


LDA $C081 


$co8l 


; RDROM 


; WRRAM 


* ROM ab $D000-$FFFF in LC 
* kopieren: Applesoft + F8-ROM 


* 
LDY 
STY 
LDA 
STA 

MOVE2 LDA 
STA 
INY 
BNE 
INC 
BNE 


“*RKKKRK 


LDA 
STA 
LDA 
STA 


* 


LDA 
STA 
LDA 
STA 
. 
LDY 
MOVE3 LDA 
STA 
INC 
BNE 
INC 
MOVE4A INC 
BNE 
INC 
MOVES LDA 
CMP 
BCC 
LDA 
CMP 
BCC 
* 


INDl: $604E 


IND2: $F82A 


+0 

IND1 
#>APSOFT 
INDI+1 
(IND1),Y 
(IND1),Y 


MOVE2 
IND1+1 
MOVE2 


$FB2A-$FAZF mit neuem 
Disassembler überschreiben 


#<MOVE6+1 


IND1 
#>MOVE6 
IND1+1 


#<NEUl 
IND2 

#>NEUl 
IND2+1 


+0 
(IND1),Y 
(IND2),Y 
IND1 
MOVEA 
IND1+1 
IND2 
MOVE5 
IND2+1 
IND2+1 
#>REST 
MOVE3 
IND2 
#<REST 
MOVE3 


; LOADROM 
;STORELC 


;-$FFFF 


;<$FAOO 


;<$FA40 


* LC lese- UND schreibfähig 
#* machen: Bank 2 R/W enable 


* 
LDA 
LDA 
MOVES6 RTS 
* 


$0083 
$C083 


:RDLC 
;WRLC 
‚Exit 


FBRA: 
F82B: 
F82D: 
F830: 
F832: 
F833: 
F835: 


F836: 
F839: 
F83B: 


F83SC: 
F83D: 
F83E: 
F83F: 
F840: 
F841: 
F842: 
F843: 
F844: 
F845: 
F846: 
F847: 
F848: 
F849: 
FBAA: 
F84B: 
F84C: 
F84D: 
FS84E: 
FS4AF: 
F850: 
F851: 
F852: 


F853: 
F854: 
F855: 
F856: 
F857: 
F858: 
F859: 
F85A: 


98 
A2 


FO 
CA 


60 


BD 
AO 
60 


38 
43 
37 
43 
39 
2l 
36 
21 


16 
SC F8 
04 


F8 


55 F8 
00 





118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
152 
153 
154 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 





FEATURE 





re 
Apple IIc Disassembler 
für 65C02-Processor, 

umgeschrieben für Ile, 


II Plus von U.Stiehl 


„rk ker »+ 
„rt Kr Kr KH 


KRITIK 


Verwendbar auf Apple II Plus 
mit Language Card sowie auf 
Apple IIe. Disassemblierung 
ist sowohl möglich mit als 
auch ohne 65C02-Processor, 
da der Disassembler selbst 
die neuen Op-Codes NICHT 
benutzt! 


Achtung: Lores-Grafik-Routinen 
ab $F800 werden teils über- 
schrieben und dürfen nicht 
aufgerufen werden! 


= KK TFA DK DS € 


t 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


“ 
* Externe Routinen 
* 


PRYX2 EQU $FD9Y6 
PRBYTE EQU $FDDA 
COUT EQU $FDED 


%* 
%*%—-—-—-—--—-——- -—- - - - - - - - 
%* 
* Disassembler-Beginn: $F82A 
* 
ORG $F82A 
* 
NEUl TYA 
LDX +#$16 
NEU2 CMP NEUTAB1l,X 
BEQ NEU3 
DEX 
BPL NEU2 
RTS 


NEU3 LDA NEUTAB2,X 
LDY #$00 
RTS 


NEUTABl HEX 12 ;$00 
HEX 14 
HEX 1A 
HEX IC 
HEX 32 
HEX 34 
HEX 3A 
HEX 30 
HEX 52 
HEX 5A 
HEX 64 
HEX 72 
HEX 74 
HEX 7A 
HEX 7C 
HEX 89 
HEX 92 ‚10 
HEX 9C 
HEX 9E 
HEX B2 
HEX D2 
HEX F2 
HEX FC 
%* 
*%*—-—-—- —- —- 1-1... 
%* 
NEUTAB2 HEX 38 ;ORA 
HEX 43 ; TRB 
HEX 37 ‚INC 
HEX 43 ; TRB 
HEX 39 ; AND 
HEX 21 ‚BIT 
HEX 36 ;DEC 
HEX 21 ;BIT 











F85B: 
F85C: 
F85D: 
F85E: 
FE5SF: 
F860: 
F861: 
F862: 
F863: 
F864: 
F865: 
F866: 
F867: 
F868: 
F869: 


F86A: 
F86EB: 
F86ED: 
F86EF: 
F870: 
F872: 
F873: 
F875: 
F877: 
F878: 


F879: 
F8TB: 
F87TC: 
F87D: 
FSTE: 
FETF: 
F881: 
F882: 
-F884: 
F886: 
F889: 
F8SC: 
F88E: 
F88EF: 
F890: 
F892: 
F893: 
F895: 
F897: 
F898: 
F899: 
F89C: 
F89F: 
F8Al: 
FAZ: 
F8A5: 
F8A6: 
F8A9: 
F8AB: 
FSAD: 
FSAF: 
F8B2: 
F8B4: 
F8B6: 
F8B7: 
F8B8: 
F8BA: 
FSBC: 
FSBE: 
FSBF: 
FSCl: 
F8C2: 
F8C3: 


16 


2F 
3B 


01 


3A 
ol 


04 


OF 
5A 
96 
48 
3A 
05 


oC 
87 


20 


FD 


F9 
F8 


F9 


F8 


170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
2ll 
iR 
213 
214 
215 
216 
ir 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
2354 
235 
236 
237 
238 
259 
240 
24l 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


HEX 3A ; EOR 
HEX 40 PHY 
HEX 42 ;STZ 
HEX 3B ;ADC 
HEX 42 ;STZ 
HEX 41 :PLY 
HEX 22 ;JMP 
HEX 21 ;BIT 
HEX SC ;STA 
HEX 42 ;STZ 
HEX 42 812 
HEX 3D ;LDA 
HEX 3E ;CMP 
HEX 5F ;SBC 
HEX 44 70 


* %* 


PC-Adjust aus Platzgründen 
an diese Stelle verschoben. 
Ursprünglich ab $F953, 

wo jetzt ein JMP steht. 


*%k%k x %* 


* 

PCADJ SEC ;$F953 

PCADJ2 LDA $2F 

PCADJ3 LDY $3B 
TAX 
BPL PCADJ4 
DEY 

PCADJA ADC $3A 
BCC RTS2 
INY 

RTS2 RTS 


* 

* Apple IIc ROM-Kopie ab $F879 
* mit diversen Patches, da sich 
* die Opcodes TRB, PHY, PLY usw. 
* im IIc-ROM bei $FAB8-$FABC 

* und $FAF8-$FAFC befinden, 

* wo beim Apple II Plus und 

* IIe unentbehrliche Monitor- 

* Routinen stehen. 

%* 
Ss 


CRN2 BCC RTMSKZ 
LSR 
LSR 
LSR 
LSR 
RTMSKZ_ AND #$0F 
RTS 
INSDSI LDX $34A 
LDY $3B 
JSR PRYX2 
JSR PRBLNK 
LDA ($3A,X) 
TAY 
LSR 
BCC INSDS1A 
ROR 
BCS IEVEN 
AND #$87 
INSDSIA LSR ;neu 
TAX 
LDA FMTl,X 
JSR SCRN2 
BNE GETFMT 
IEVEN LDY #$FC ;$F8Al! 
LDA #$00 
GETFMT TAX :$F8A5! 
LDA FMT2,X 
STA $2E 
AND #$03 
STA $2F 
JSR NEUl ‚4 
BEQ RTSNEU 
AND #$8F 
TAX 
TYA 
LDY #$03 
CPX #$8A 
BEQ MNNDX3 
MNNDXl LSR 
BCC MNNDX3 
LSR 
MNNDX2 LSR 
ORA #$20 


MNNDX3 


RTSNEU 
” 


* 


DEY 
BNE 
INY 
DEY 
BNE 
RTS 


HEX 


MNNDX2 


MNNDX1 
;neu 


FFFFFF ;‚Füller 


* Wird von $FE64 angesprungen 


* 
INSTDSP 
PRNTOP 


PRNTBL 


PRADR1 


PRADR2 


PRADR3 


PRADR4 


PRADRS 


RELADR 


PRNTYX 


“*xk x x* * 


PCADJJMP JMP PCADJ 


* 
FMT1 


JSR 
PHA 
LDA 
JSR 
LDX 
JSR 
CPY 
INY 
BCC 
LDX 
CPY 
BCC 
PLA 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
LDY 
ASL 
ROL 
ROL 
DEY 


ADC 
JSR 
DEX 
BNE 


LDX 
CPX 
BEQ 
ASL 
BCC 
LDA 
JSR 
LDA 
BEQ 
JSR 
DEX 
BNE 
RTS 
DEY 
BMI 
JSR 
LDA 
CMP 
LDA 
BCC 
JSR 
TAX 
INX 
BNE 
INY 
TYA 
JSR 
TXA 
JMP 
LDX 
LDA 
JSR 
DEX 
BNE 
RTS 


HEX 
HEX 
HEX 
HEX 


INSDS1 ‚extern 


($3A) ,Y 
PRBYTE 
#$01 
PRBL2 
$2F 


PRNTOP 
#+$03 
+$04 
PRNTBL 


MNEML , Y 
$2C 
MNEMR, Y 
$2D 
#$00 
#+$05 
$2D 

$2C 


PRNM2 
#+$BF 
COUT 


PRMNI1 
PRBLNK 
$2F 
#$06 
#+$03 
PRADR5 
$2E 
PRADR3 
CHAR2,X 
COUT 
CHAR1,X 
PRADR3 
COUT 


PRADR1 


PRADR2 
PRBYTE 
$2E 
+$E8 
($3A),Y 
PRADR4 
PCADJ3 


PRNTYX 


PRBYTE 


PRBYTE 
#$03 
#$A0 
COUT 


PRBL2 


Aus Platzgründen JMP nach 
Program Counter Adjust 
Wird von $FE67 angesprungen. 


‚extern 


‚neu 





FYB5A: 
F95B: 
F95C: 
F95D: 
FY5E: 
FY5F: 
F960: 
F961: 
F962: 
F963: 
F964: 
F965: 
F966: 
F967: 
F968: 
F969: 
FY6A: 
FY6B: 
F96C: 
FYED: 
FY6GE: 
FY6EF: 
F970: 
F971: 
F972: 
F973: 
F974: 
F975: 
F976: 
F977: 
F978: 
F979: 
FITA: 
FYTB: 
F97TC: 
F97D: 
FITE: 
FYTF: 
F980: 
F981: 
F982: 
F983: 
F984: 
F985: 
F986: 
F987: 
F988: 
F989: 
FY8A: 
FY8B: 
F9SC: 
F98D: 
F98E: 
F9Y8F: 
F990: 
F991: 
F992: 
F993: 
F994: 
F995: 
F996: 
F997: 
F998: 
F999: 
FYQA: 
FY9B: 
F9SC: 
F9Y9D: 
FYYE: 
FYYF: 
FYAO: 
FOAl: 
FYA2: 
FYA3: 
FYAA: 
FYA5: 
FYAG: 
FYA7: 
FYAB: 
FYA9: 
FYAA: 
FYAB: 
FYAC: 
FYAD: 
FYAE: 
FYAF: 
F9BO: 
F9Bl: 


346 
347 
348 
349 
350 
351 
352 
355 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
38l 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
all 
412 
413 
414 
415 
416 
417 
418 
419 
420 
a2l 
422 
425 
424 
425 
426 
427 
428 
429 
450 
451 
452 
453 


FMT2 


CHAR1 


CHAR2 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


‚neu 


‚neu 


F9B2: 
F9B3: 


F9B4: 
F9B5: 
F9B6: 
F9B7: 
F9B8: 
F9B9: 
FOBA: 
F9OBB: 
FYBC: 
F9YBD: 
FOBE: 
FOBF: 
F9CO: 
F9C1: 
F9C2: 
F9C3: 
F9C4: 
F9C5: 
F9C6: 
F9C7: 
F9C8: 
F9C9: 
FOCA: 
F9CB: 
FICC: 
FSCD: 
FSCE: 
FSCF: 
F9DO: 
FSDl: 
F9D2: 
F9D3: 
F9D4: 
F9D5: 
F9D6: 
F9D7: 
F9D8: 
F9D9: 
FODA: 
F9DB: 
F9DC: 
F9DD: 
FODE: 
FODF: 
FYEO: 
FYEl: 
FYE2: 
FYE3: 
FYEA: 
F9ES: 
FYES: 
FYET: 
F9EBS: 
FYE9: 
FYEA: 
F9IEB: 
FYEC: 
FYED: 
FYEE: 
FYEF: 
F9FO: 
FYF1: 
FYF2: 
FYF3: 


FYF4: 
FYF5: 
FYF6: 
FYF7: 
FYFB8: 


FYF9: 
FYFA: 
FYFB: 
FYFC: 
FYFD: 
FOFE: 
FYFF: 


A8 
A4 





454 
435 
456 
457 
458 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
a7l 
472 
473 
474 
475 
476 
477 
478 
479 
480 
48l 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
50l 
502 
503 
504 
505 
506 
507 
508 
509 
510 
Sıl 
512 
513 
514 
515 
516 
517 
518 
519 
520 


FEATURE 7 


*—-—-—-—-—-—------- - - - - - - 


MNEML 


* 


* Ergänzung der Tabelle 


* 


%* 


%*--—-—-—--——- ——- —- - 0... ...0 


%* 
MNEMR 


HEX A8 
HEX A4 


HEX IC 
HEX 8A 
HEX IC 
HEX 23 
HEX 5D 
HEX 8B 
HEX 1B 
HEX Al 
HEX 9D 
HEX 8A 
HEX 1D 
HEX 23 


HEX AE 
HEX AE 
HEX A8 
HEX AD 
HEX 29 
HEX 8A 
HEX 7C 
HEX 8B 
HEX 15 
HEX 9C 
HEX 6D 
HEX 9C 
HEX AS 
HEX 69 
HEX 29 
HEX 53 
HEX 84 
HEX 13 
HEX 34 
HEX 11 
HEX AS 
HEX 69 
HEX 23 
HEX AO 


HEX 8A 
HEX 8B 
HEX AS 
HEX AC 
HEX 00 


HEX D8 
HEX 62 
HEX 5A 
HEX 48 
HEX 26 
HEX 62 
HEX 94 


;$00 


;$10 


;$20 


;$30 


;$3F 


;544 


;BRK 
‚PHP 
:BPL 
;CLC 
;JSR 
:PLP 
;BMI 





INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 
für DOS 3.3 

und ProDOS 


von U. Stiehl 





1984, Diskette und Manual, DM 98,— 


ISBN 3-7785-1021-5 FAOO: 88 521 HEX 88 ;SEC 65C02-Disassembler 

nn. 2 — - = — $6000: AD 81 CO AD 81 CO AO 00 
Der für den Apple II bestimmte Mas- $6008: 84 FC A9 DO 85 FD Bl FC 
' une UM men Bu ur $6010: 91 FC C8 DO F9 E6 FD DO 

kengenerator „Input 2.0“ basiert auf FAO4: 54 525 HEX 54 ;CLI 
x Bram: HE Be > a $6018: F5 A9 4E 85 FC A9 60 85 
den früheren Programmen „Input $6020: FD A9 2A 85 FE A9Y F8 85 
u « FAIRE BR m. rn $6028: FF AO 00 Bl FC 91 FE E6 
1.0” und „Input 80 1.0“ (von denen FAOT: ES 528 HEX E8 ;BVS San: 5 Bi de Dh He I Fe De 
noch Restbestände lieferbar sind) ae - > = u = 86038: 02 E6 FF A5 FF C9 FA 90 
und ist sowohl unter DOS 3.3 wie FAOA- BA 531 HEX Ba "DEY $6040: EA A5 FE C9 40 90 E4 AD 
auch unter dem neuen ProDOS lauf- FAOB: 08 532 HEX 08 :BCC ee zknnungn 
EM a r En no. ec $6050: 16 DD 3C F8 FO 04 CA 10 
fähig. Der Maskengenerator setzt ei- $6058: F8 60 BD 53 F&8 AO 00 60 
re ” En _ $6060: 12 14 1A 1C 32 34 3A 3C 

nen Apple Il Plus mit Language Card FAOE: B4 535 HEX B4 ;TAY 
$6068: 52 5A 64 72 74 TA TC 89 
oder einen Apple Ile voraus. Im 40 Z/ .. u > . - nz $6070: 92 9C 9E B2 D2 F2 FC 38 
Z-Modus funktioniert er auf beiden FAlL: 74 538 HEX 74 :CPY $6078: 45 37 43 59 21 36 21 3A 
Gerätetypen, im 80 Z/Z-Modus dage- FAl2: F4 539 HEX F4 ;INY a = _ = . = = 2 z 
gen nur auf dem Apple Ile mit 80- —_... En en — $6090: 2F A4 3B AA 10 01 88 65 
Zeichen-Karte. (Die alte Videx-Karte FAlS: 72 542 HEX 72 "PX $6098: 5A 90 01 C8 60 90 04 AA 
2 $60A0: 4A AA AA 29 OF 60 A6 3A 
für den Apple II wird nicht unter- FAl6: F2 545 HEX  F2 ‚INX $60A8: AA 3B 20 96 FD 20 48 F9 

m FAlT: A4 544 HEX A4 ;BEQ 
stützt!) Baia: u Bir u a Sun $60B0: Al 3A A8 AA 90 05 6A BO 
u 4 $60B8: 0C 29 87 4A AA BD 56 F9 
„Input 2.0 liegt wahlweise in der FA19: 06 546 HEX 06 ‚ TSB $60C0: 20 79 F8 DO 04 AO FC A9 
Bank 1 oder Bank 2 der Language —_. — min m $60C8: 00 AA BD 9A FO 85 2E 29 
Card und wird durch einen kurzen FAlC: A2 549 HEX A2 ;JMP nn z - n 2 = = = = 
Driver in den unteren 48K aufgerufen. PRIDE FR BRD un 00 Dr $60E0: FO OB 4A 90 08 AA 4A 09 

ne , i FAlE: 74 55l HEX 74 :LDY $60E8: 20 88 DO FA C8 88 

„Input 2.0” läßt sich problemlos in FAIR: 74 Ta - CPY 0 FA DO F2 
u... Bun an $60FO: 60 FF FF FF 20 82 F8 48 

nicht-compiliette und compilierte FA2O: 72 553 HEX 72 ;CPX 
on Ban, 25 ee . _ $60F8: Bl 3A 20 DA FD A2 01 20 
Applesoft- sowie in Assemblerpro- $6100: 4A F9 CA 2F C8 90 Fl A2 

= Fe FA22: 68 555 | HEX 68 ;TXS 
gramme einbinden. Die Übergabe der FA23: B2 556 HEX B2 :TAX en. 

' E FA24: 32 557 HEX 32 ;TSX 
Feldinhalte an das Anwenderpro en =. ern sa = “ 02 AO 05 06 2D 26 
gramm erfolgt durch ein einfaches A. BB; DO. BEE RR 

FA26: 72 559 HEX 72 ; PHX 
Verfahren, das auch bei Compilern FA2T: 22 560 HEX 22 ;NOP ne EA iur 
i $6130: A4 2F A2 06 EO 03 FO IC 
funktioniert. PRMEO,. IE Be Bm Te de $6138: 06 2E 90 OE BD AD F9 20 
u Re IA ur BR ER a $6140: ED FD BD A7 F9 FO 03 20 
Für jedes Feld der Bildschirmmaske FAZA: 1A 563 HEX 1A ;ROL $6148: ED FD CA DO E7 60 88 30 
lassen sich u. a. definieren: Feldlänge ee. . m "ok 6150: ET 20. DA FD A5 2E c9 EB 
_ E _ $6158: Bl 3A 90 F2 20 6D F8 AA 
(bis zu 255 Zeichen) Vtab — Htab BB: 7E 586 Hz a :SrE Sn u DB A 
Datentyp (insgesamt 8 Typen) - $6168: 8A 4C DA FD A2 03 AY AO 
Scrollfl t der d isch ... u en m $6170: 20 ED FD CA DO FB 60 4C 
croltlag (starre oder dynamische FA2O: CR u Hu. UM IR $6178: 6A F8 OF 22 FF 33 CB 62 
Maske) — Ctriflag — Füllflag — Lösch- Su. = FOR: UM m $6180: FF 73 03 22 FF 33 CB 66 
flag - Bildschirmflag (40- oder 80 Zei- .. E =. a $6188: FF 77 OF 20 FF 33 CB 60 
chendarstellun | $6190: FF 70 OF 22 FF 39 CB 66 

9). Innerhalb eines FA34: 48 573 HEX 48 ; ADC 
e : $6198: FF 7D OB 22 FF 33 CB A6 
Eingabefeldes besteht jeder denkba- .. al =. — $61A0: FF 73 11 22 FF 33 CB A6 
re Redigierkomfort (Insert, Delete, FA37: A2 576 HEX  A2 : CMP .._ _ 2 - - = = - = 
Rubout, Restore usw.). FAS8: CB a i HEX CS ‚SB $61B8: FF 70 24 31 65 78 00 21 
Bei der neuen Version des Masken- i $61C0: 81 82 59 AD 91 92 86 4A 
i Pi W DEGANSUNG GET TENnLie $61C8: 85 9D 49 5A D9 00 DE A4 
generators können jetzt auch Citrl- 580 * $61DO: AA 00 AC AO AC AS AB Ad 

' ' ' FA39: 74 581 HEX 74 ;PHY 
Zeichen beim Datentyp String einge- $61D8: IC 8A IC 23 5D 8B 1B Al 
geben werden. Ferner sind — das gilt ao = ns STE Be 9 Di RE RER 
. er ame A $61ES: IC 29 19 AE 69 AB 19 23 
nur für Ile — die Apfeltasten als = > =. nn $61FO: 24 53 1B 23 24 53 19 Al 
schnelle Cursortasten definiert. 586% = en = _ . = = z = = 
Schließlich wurden Features imple- ar * Füller bis $FA3F 66208: 15 90 6D SC A5 69 29 53 
mentiert, die den Einsatz von „Input Des * $6210: 84 13 34 11 A5 69 23 AO 
2.0“ als zeilenorientiertes Textverar- a En or ‚spp EP1B: BA BB.AS AO 00:09:62 DA 
2 . Ran: 5% ENDE Nur :$FAS $6220: 48 26 62 94 88 54 44 (8 
beitungsprogramm ermöglichen. Die $6228: 54 68 44 ES 94 C4 BA 08 
„Input 2.0“-Diskette enthält zahlrei- $6250: 84 74 BA 28 6E 74 FA CC 
p RN BBPRRE $6238: 4A 72 F2 AM 8A 06 AA A2 


che Demos zur Veranschaulichung $6240: A2 74 74 74 72 44 68 B2 


der Anwendung. Bytes $6248: 32 B2 72 22 72 1A 1A 26 


u 6250: 26 72 72 88 C8 C4 CA 26 
Gerätevoraussetzung: Apple Ile oder Errors: 0 


IIc; ferner Apple II+ im 40-Zeichen- $6260: C6 00 EA EA 00 00 00 00 
modus 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 





2 FEATURE er 


Accelerator Ile 


Die neue Superkarte 


Die neue Accelerator Ile der Firma Titan 
(die früher als Saturn firmierte) kam etwa 
im April dieses Jahres auf den Markt. Ich 
wage zu behaupten: Wer diese Karte ein- 
mal in den Apple gesteckt hat, wird sie 
nicht mehr herausziehen wollen. In zwei- 
erlei Hinsicht ist sie wohl eine der besten 
Interface-Karten, die je für den Apple Ile 
bzw. Il Plus konzipiert wurde. Einerseits ist 
deren Benutzung für den reinen Apple- 
Anwender denkbar unkompliziert: Karte in 
irgendeinen Slot stecken, einschalten, fer- 
tig! Andererseits kann ein Programmierer 
weitergehende Features der Karte ausnut- 
zen, so daß sich vielfältige Anwendungs- 
möglichkeiten im Hinblick auf die Modifi- 
zierung des weiter unten geschilderten 
„Pseudo-ROMs“ bieten. 


verschiedene Preboot-Konfigurationen 
(Phantom 0, Fast Applesoft, Standard und 
Disable), und der damaligen Anleitung war 
eine ellenlange Liste von (geschützten) 
Programmen beigefügt worden, aus der 
ersichtlich war, welches Programm welche 
Konfiguration erforderte. Auch diese Be- 
schränkung ist bei der neuen Accelerator 
Ile insoweit entfallen, als erstens eine Pre- 
boot-Diskette normalerweise überflüssig 
ist und zweitens grundsätzlich alle Pro- 
gramme lauffähig sind, auch die „ge- 
schützten“. 


Die Karte verfügt über 8 Schalter und 7 
Brücken. Die Schalter 1-7 sind den Slots 
1-7 zugeordnet. Bei den Schaltern bedeu- 


Accelerator Il 





1. Hardware und Installation 


Die Accelerator Ile, die ich für den stolzen 
Preis von $ 623.00 bzw. umgerechnet DM 
1805,00 erwarb, dient zunächst nur einem 
einzigen Zweck, nämlich alle Programme 
bis zu ca. 3,5mal schneller zu machen. Die 
sorgfältig verarbeitete, sehr kompakte Kar- 
te ist u.a. mit einer 4 MHz NCR-65C02C- 
CPU (CMOS-Technologie) sowie mit 80K 
RAM (dynamisch, 150 ns) bestückt. Im 
Gegensatz zur alten Accelerator Il kann 
die neue Accelerator Ile in jeden beliebi- 
gen Slot gesteckt werden. (Beim Apple Il 
Plus wird jedoch wegen der Language 
Card Slot 0 empfohlen.) Die alte Accelera- 
tor II mußte sich links von einer ggf. vor- 
handenen Z80-Karte befinden. Diese Be- 
schränkung gilt für die Accelerator Ile nicht 


tet ON = 4 MHz und OFF = 1 Mhz. Bei 
zeitkritischen Interface-Karten (Disk-Con- 
troller, Modem usw., nicht dagegen z.B. 
Druckerkarten usw.) muß der entspre- 
chende Slot-Schalter auf OFF (nach un- 
ten) gestellt werden. Dies gilt nicht für die 
80-Zeichenkarte bzw. 64K-Karte des Ap- 
ple Ile. Mit dem Schalter Nr. 8 kann man 
die Accelerator Ile insgesamt permanent 
auf 1 MHz herunterschalten (Dies ent- 
spricht dem Softswitch C086:1). 


Die Brücken kontrollieren ggf. vorhandene 
RAM-Karten. Wenn sich in irgendeinem 
Siot eine RAM-Karte (128K-RAM-Karte 
usw.) befinden sollte, muß die entspre- 
chende Slot-Brücke (ein kleiner Plastik- 
Aufsatz) abgezogen werden. Dies gilt wie- 
derum nicht für die Ile-64K-RAM-Karte in 
Slot 3. 


Da die CMOS-Teile der Karte sehr emp- 
findlich gegen Elektrostatik sind, empfiehlt 
es sich, die Karte in eine Alu-Folie einzu- 
wickeln, falls sie versandt werden soll. Be- 
vor man die Karte anfaßt, z.B. wenn man 
sie in einen Slot steckt oder einen Schalter 
umlegt, sollte man die Hände an einem 
Metallstück „entladen“. 


Die Accelerator Ile wird denkbar einfach 
aktiviert: Man braucht lediglich den Apple 
einzuschalten; das ist alles. In dem Mo- 
ment, da der Apple eingeschaltet wird, 
zieht die Karte quasi „alle Energie” an 
sich, d.h. der alte 6502 sowie die gesam- 
ten 64K RAM des Motherboards inklusive 
LC und das 12K-ROM ($DO000-$FFFF) 
werden desaktiviert. Wie bereits erwähnt, 
umfaßt die Accelerator Ile 80K RAM, das 
sich wie folgt aufteilt: 


— 48K „Motherboard“ 
— 16K „Language Card“ 
— 16K „Pseudo-ROM“ 


Beim Einschalten des Apple wird der ech- 
te ROM $DO00-$FFFF in das Pseudo- 
ROM der Accelerator Ile kopiert, worauf 
softswitehmäßig „die Klappe herunter- 
fällt“, d.h. das Pseudo-ROM, das in Wirk- 
lichkeit RAM ist, wird gegen Überschrei- 
ben geschützt. 


2. Geschwindigkeit 


Der 4 MHz 65C02C läuft theoretisch auf 
3,5 MHz heruntergetaktet, doch konnte 
durch detaillierte Testprogramme gezeigt 
werden, daß die Accelerator-CPU maximal 
3,32mal schneller als die normale 6502- 
CPU ist. Lediglich wenn von den erweiter- 
ten 65C02-Befehlen Gebrauch gemacht 
wird, können Programme den Wert von 
3,5 erreichen bzw. gar überschreiten. Im 
einzelnen wird die Accelerator Ile in fol- 
genden Fällen kurzfristig auf 1 MHz „her- 
untergetaktet“: 


— beim Zugriff auf Peripheriegeräte wie 
Disk-Controller usw., bei denen der ent- 
sprechenden Slot-Schalter von vornherein 
auf 1 MHz eingestellt wurde. 

— beim Zugriff auf RAM-Karten aller Art, 
insbesondere wenn diese virtuell in den 
Bereich $DO00-$FFFF „gemappt“ sind. 

— beim Zugriff auf Softswitches und ROM- 
Routinen im Bereich $C000-$CFFF. Das 
Demo-Programm „ACCEL.WAIT“ zeigt, 
daß das Ansprechen von INTCXROM- 
oder Softswitch-Adressen nur dann zur 
einer spürbaren Reduzierung der Ge- 
schwindigkeit führt, wenn dies mit einer 
nicht bis ins letzte Detail untersuchten ge- 
wissen Häufigkeit geschieht. 


mehr. Ferner gab es bei der Accelerator || - 
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Praktische Beispiele 


a) Das an anderer Stelle in dieser Zeit- 
schrift gelistete Applesoft-Primzahlen- 
Programm ist mit der Accelerator-Karte 
3,28mal schneller. 


b) Die Bildschirm-Scroll-Geschwindigkeit 
ist speziell beim Apple Ile mit Accelerator 
dann kaum spürbar schneller, wenn man 
den Ile-Monitor benutzt, der bekanntlich 
permanent in den INTCXROM-Bereich 
$C100-$CFFF springt. Lädt man dagegen 
z.B. den Apple II Plus FPBASIC-File von 
der System Master Diskette in die Accele- 
rator Language Card, dann ist etwa die 
LIST-Geschwindigkeit bei Applesoftpro- 
grammen ca. 2,8mal schneller. Ähnliches 
gilt für die 80-Zeichen-Scroll-Geschwin- 
digkeit beim Applewriter Ile, da dieser die 
INTCXROM-Routinen nicht benutzt. 


c) Der Zugriff auf die 64K-Karte des Apple 
Ile ist mit Accelerator ca. 2mal schneller. 
Die Datenübertragungsrate von der und 
auf die Karte beträgt maximal 80K/s. Dies 
entspricht der kaleidoskopartigen Darstel- 
lung von 10 Hires-Bildern pro Sekunde. 


Apple-Motherboard 


inaktiv 





Speicherorganisation mit Accelerator Ile 


ACCEL. LC. KOPIE kopiert (4) nach (3) 
ACCEL. ROM. KOPIE 1 kopiert (3) nach 
ACCEL. ROM. KOPIE 2 kopiert (1) nach 


(Zu Testzwecken wurde das AUXMOVER- 
Programm von der MMU-Diskette benutzt, 
das mit der Accelerator Ile zu einer über- 
zeugenden „Bilderschau“ führt.) 


In der Anleitung zur Accelerator Ile, die 
leider für Programmierer und Techniker 
etwas dürftig ist, sind nur 3 Softswitches 
genannt: 


C086: 1 = POKE -16250, 1 = 1 MHz (Low 
Speed; für Spiele usw.) 
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C086: 5 = POKE -16250, 5 = 3,5 MHz 
(High Speed; Normalzustand) 


(Zwischen dem langsamen und schnellen 
Modus kann man beliebig oft hin- und 
herschalten.) 


C086: A = POKE -16250, 10 (Disable; 
Karte abstellen) 


Das Abstellen der Karte bedeutet, daß 
nunmehr wieder das eigentliche RAM und 
ROM des Apple aktiv wird. Zum Abstellen 
der Karte verwende man entweder die mit- 
gelieferte Preboot-Diskette oder verfahre 
beim Apple Ile wie folgt: 

CALL -151 

C086:A 

Ctrl-Geschlossener Apfel-Reset 
(Ctrl-Taste, schwarze Apfel-Taste und Re- 
set-Taste gleichzeitig drücken. Dieses 
Verfahren bewirkt, daß sich die Softswit- 
ches normalisieren.) 


Ist die Karte erst einmal desaktiviert, be- 
steht meines Wissens keine Möglichkeit 
mehr, sie wieder zu reaktivieren, d.h. man 
ist gezwungen, den Apple erst aus- und 
dann wieder einzuschalten, wenn die Ac- 
celerator wieder aktiv werden soll. 





Accelerator- Karte 





® 


3. Reset 


Der Hardware-Reset durch Drücken der 
Otrl-Reset-Tasten bewirkt beim Apple Ile 
stets die Normalisierung der Softswitches 
in folgender Weise: Es werden die „unte- 
ren“ 48K des Motherboards lese- und 
schreibfähig gemacht, also eine vor Reset 
ggf. aktive 64K-Kartes desaktiviert. Ferner 
wird das ROM $DO000-$FFFF lesefähig und 
die Bank 2 der Language Card der unteren 
64K schreibfähig gemacht. Schließlich 


werden durch die Software-Reset-Routine 
ab $FA62 Grafik und 80-Zeichenkarte ab- 
gestellt. 

Für die Accelerator Ile gilt demgegenüber, 
daß eine ggf. aktive (lese-schreib-fähig 
gemachte) Language Card durch Ctrl-Re- 
set nicht desaktiviert wird. Ferner „dreht“ 
die Accelerator Ile „durch“, wenn man 
Ctrl-Reset drückt, während sich die 64K- 
Karte in einem Read-Write-Enable-Zu- 
stand befindet. Obwohl dies nicht eindeu- 
tig bewiesen werden kann, dürfte in die- 
sem Fall kurzfristig das Motherboard-RAM 
und -ROM aktiviert werden. Da sich dort 
jedoch nur „Zufallswerte“ befinden, wird 
neu gebootet. Wenn man danach mit Ctrl- 
Schwarzer Apfel-Reset die Softswitches 
normalisiert, gerät die Accelerator Ile wie- 
der unter Kontrolle. Andernfalls kann man 
nur noch das Gerät ausschalten. Ein Bei- 
spiel: Der Applewriter Ile benutzt — falls 
vorhanden — die 64K-Karte als Textspei- 
cher und muß deshalb beim Scrollen usw. 
häufig auf die „oberen“ 64K springen. 
Drückt man dann in einem solchen Mo- 
ment Ctrl-Reset, wird neu gebootet. 


4. Die Geheimnisse des „Pseudo- 
ROMs“ 


In der Betriebsanleitung der Firma Titan 
wird zwar beiläufig erwähnt, daß nach dem 
Einschalten des Apple das „richtige“ ROM 
in das „Pseudo-ROM“ der Accelerator- 
Karte kopiert wird, doch wie das geschieht 
und insbesondere, ob dieser Kopiervor- 
gang später, während der Apple noch ein- 
geschaltet ist, wiederholt werden kann, 
darüber hüllt sich Titan in Schweigen. Die 
Vorstellung, ggf. in dieses Pseudo-ROM 
einen anderen Inhalt hineinladen zu kön- 
nen, faszinierte mich, denn dann wäre 
man allen „F8-EPROM-Brennern“ mei- 
lenweit überlegen, könnte man doch je 
nach Anwendungszweck mal diesen und 
mal jenen Monitor oder mal dieses und 
mal jenes Applesoft oder Integer-Basic 
usw. in das Pseudo-ROM laden. Es hat 
mich dann zwei schlaflose Nächte geko- 
stet, bis ich herausfand, daß dies tatsäch- 
lich möglich ist. Insgesamt habe ich 256 
verschiedene Softswitches ausprobieren 
müssen, wobei mir im übrigen „Kommis- 
sar Zufall“ zu Hilfe kam. Durch Untersu- 
chung der Speicherbereiche nach dem 
Einschalten des Apple stellte ich nämlich 
fest, daß ein echtes Zusatz-ROM der Ac- 
celerator-Karte ein kurzes Kopierpro- 
gramm in den Stack-Bereich $0100- 
$01FF verlegt. Obwohl sich dieses Pro- 
gramm nachher durch die übliche Verwen- 


————— mm 












® Wechselplatten-Subsysteme 


® Bandstreamer für Backup 
® NC-Net Lokales Netzwerk 


in Vorbereitung: 


D-5500 Trier 


dung des Stacks von selbst überschreibt, 
konnte noch der wichtigste Teil rekonstru- 
iert werden. Dieser ist in dem Programm 
„ACCEL.BOOT“ gelistet. Weitere Unter- 
suchungen ergaben dann folgendes: 

LDA #3 

STA $C086 

LDA $C081 

LDA $C081 

macht das Pseudo-ROM der Accelerator 
Ile schreibfähig (write-enable) und zu- 
gleich das echte ROM des Apple lesefähig 
(read-enable). 

LDA #5 

STA $C086 

LDA $C081 

LDA $C081 

macht das Pseudo-ROM der Accelerator 
Ile (wieder) schreibunfähig (write-disable) 
und zugleich das echte ROM des Apple 
leseunfähig (read-disable). 


Damit war es möglich, folgende Program- 
me zu schreiben: 


ACCEL.LC.KOPIE kopiert den Inhalt der 
Accelerator Language Card Bank 2 in das 
Accelerator Pseudo-ROM. Zu diesem 
Zweck muß zuvor FPBASIC usw. in die 
Language Card geladen worden sein. 
Nach BRUN ACCEL.LC.KOPIE kann die 
Language Card dann anderweitig verwen- 
det werden. ACCEL.LC.KOPIE kopiert zu- 
nächst den LC-Inhalt $DO00-$FFFF nach 
$1000-$3FFF und dann wieder hinauf in 
das Pseudo-ROM. Anwendungszweck: 


® kombinierte Fest-/wWechsel-Subsysterne 


® NCW 2.0 Multibetriebssystem-Software 
e 8” Floppy mit SS/SD + DS/DD, IBM-komp. 


® Fest-/wechselplatten für Macintosh und 
Apple Ile. APPLE-BUS Kompatibilität 

® Schon für die Einzelplatz Fest/wechsel- 
platten gelten konkurrenzlose Leistungen ... 


NOLOLOMP Datensysteme GmbH 
Walramsneustraße 7 + 9 


(0651) 4 22 44 Tix. 472569 


Die Massenspeicher-Profis für Apple Computer 
wir haben die derzeit leistungsstärksten Subsysteme I! 


® Hard Disk /Festplatten-Subsysteme 


und ... 


US-Fachleute bewerten: 
"Die mit Abstand beste 
Losung am Markt!" 


ACCEL.ROM.KOPIE1 kopiert zunächst 
den Inhalt des Pseudo-ROMs $DO00- 
$FFFF nach $1000-$3FFF. Nunmehr kann 
man den herunterkopierten Bereich be- 


quem patchen. Im Anschluß daran wird 
dann der Bereich $1000-$3FFF wieder in 
das Pseudo-ROM zurückkopiert. Anwen- 
dungszweck: Verwendung eines partiell 
modifizierten Pseudo-ROM-Inhalts. 


ACCEL.ROM.KOPIE2 kopiert auf dem 
Umweg über $1000-$3FFF den echten 
Apple-ROM-Inhalt (wieder) in das Pseu- 
do-ROM der Accelerator-Karte. Anwen- 
dungszweck: Wiederherstellung des Kalt- 
start-Zustandes. 


Nach meinen Erfahrungen scheint es ge- 
boten zu sein, die Kopierroutinen auf dem 
Umweg über einen Bereich in den unteren 
48K, z.B. $1000-$3FFF, vorzunehmen, da 
sich die Accelerator-Karte nach LDA #3 
STA $C086 in einem partiellen Schwebe- 
zustand befindet, der durch permanente 
Softswitch-Aktivierung zu einem „Durch- 
drehen“ der Karte führen kann. 


Ein praktisches Beispiel: 


Nehmen wir an, wir wollten den 65C02- 
Disassembler (Dateiname „D65C02“) im 
Pseudo-ROM der Accelerator-Karte „ver- 
ewigen“, damit die Language Card für an- 
dere Zwecke wieder frei wird. Dies könn- 
ten wir mit folgenden Applesoft-Programm 
realisieren: 


. bis zu 63 Keywords /Benutzer definier- und 
editierbar. Wahlfrei unter DOS 3.3 (inkl. Va- 
rianten), ProDOS , UCSD-Pascal 1.1 u. 1.2, 
CP/M sowie NCNDOS (Multiuser-DOS) ein- 
setzbar. Betriebsystem-Wechsel per Befehl 
in Sekunden. Für jedes Keyword komplette 
Konfigurations-Umgebung in allen Betrieb- 
systernen definierbar. Schreib /Leseschutz 
f. alle Keywords u. "logische Unit-Bezeich- 
nungen” definierbar. Änderung der Platten- 
aufteilung ohne (!) Datenverlust in allen Be- 
triebsystemen. Turnkey-Lösungen .. 


e FEATURE a 




















en. 
Poee ern 








Ka a LE 










und .. 







10 PRINT CHR$ (4) 
ROM. KOPIE?" 

20 PRINT CHR$ (4) „BRUN D65C02"“ 

30 PRINT CHR$ (4) „BRUN ACCEL. 
LC.KOPIE“ 


„BRUN ACCEL. 


Zeile 10 stellt zunächst sicherheitshalber 
eine „saubere“ Pseudo-ROM-Kopie des 
Original-Apple-ROMs her. Zeile 20 kopiert 
dann das Pseudo-ROM einschließlich des 
neuen 65C02-Disassemblers in die 
Language Card. Und Zeile 30 kopiert dann 
die Language Card in das Pseudo-ROM. 
Diese Prozedur ließe sich natürlich da- 
durch vereinfachen, daß man das Move- 
Programm des Disassemblers dergestalt 
umschreibt, daß man den neuen Dis- 
assembler direkt in das Pseudo-ROM ko- 
piert. 


Es sei abschließend darauf hingewiesen, 
daß die Accelerator Ile mit diesem Beitrag 
noch lange nicht endgültig erforscht ist. 
Beispielsweise besteht u.U. die Möglich- 
keit, auch die Language Card des Apple- 
Motherboards (neben der LC der Accele- 
rator-Karte) zur Datenspeicherung zu ver- 
wenden. Ob man allerdings auch die restli- 
chen 48K des Motherboards als Daten- 
speicher benutzen kann, scheint zweifel- 
haft, wenngleich nicht unmöglich. 


us 
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oo oıV Du Auı Dr 


oo o_ıo9 ou Pu DH 


* 
* 
* 


* 
ADR1 EQU 
ADR2 EQU 


KEERKKEKKKKKTKTFK TFKI TFA TFA TFA I I A a 8 


WAITI 


KEERKKKKKTKTKTK TI THAI KIA DK A A IK KH KR 8 


* 


ORG 


ACCEL.WAIT 


$cooo 
$FFFF 


Wenn ADR1l im Bereich 
$C000-$CFFF liegt, dann 

beträgt die Warteschleife 

ca. 30 s statt ca. 20 s 

bei einer beliebigen anderen 
ADRl. Wenn zusätzlich ADR2 

im Bereich $C000-$CFFF liegt, 
beträgt Warteschleife ebenfalls 
ca. 30 s. Wenn aber nur ADR2 
allein im Bereich $C000-$CFFF 
liegt, beträgt die Warteschleife 
wieder ca. 20 s. Fazit: 

Ein spürbare Zeitverzögerung 
ist nur dann gegeben, wenn 

eine Adresse im Bereich 
$C000-$CFFF quasi permanent 
angesprochen wird. 


LDX #111 
JSR WAIT2 
DEX 
BNE WAITI 
RTS 
STX XSAVE 
LDX #0 
LDY #0 
LDA ADRI 
DEX 
BNE WAIT3 
LDA ADR2 
DEY 
BNE WAIT3 
LDX XSAVE 
RTS 

00 


01AO: A9 05 


0lA2: 8D 86 CO 
01A5: AC 62 FA 


ORG $0180 


ACCEL.BOOT 


Diese Routine wird von einem 
nicht näher bekannten RON- 
Bauelement der Accelerator- 
Karte nach dem Einschalten 

des Apple in den Stack 

kopiert durch eine nachfolgend 
nicht aufgeführte Routine, 

die ihrerseits im Stack 

ab $0100 liegt. 

Danach erfolgt ein Sprung 

nach $0180 zu der eigentlichen 
hier disassemblierten Routine, 
die das echte ROM $D000-$FFFF 
in das Schein-ROM der Accelerator- 
karte movt. 


INDL EQU $04 


INDH 
ACCEL EQU 
WRROMBK1 EQU 
WRROMBK2 EQU 
RESET EQU 
ROM EQU 


EQU $05 

$C086 
$CO8A 
$C082 
$FA62 
$D000 


LDA #$03 STA $C086 ist ein 

in der Anleitung von Titan nicht 
dokumentierter Softswitch, um 
ein WRITE-ENABLE der ROM-16K 
der Karte zu ermöglichen. 


vo oıovoun uam 


“KK TFT TAI TFA FA IF IK IK KR a € 


* 


INDADR1 
INDADR2 EQU 
INDADR3 EQU 
IND1 EQU $FC 
IND2 EQU 


LDA #$03 
STA ACCEL 


LDA #>ROM 
STA INDH 

LDY #<ROM 
STY INDL 

LDA (INDL),Y 
STA (INDL),Y 
LDX WRROMBK1 
STA (INDL),Y 
LDX WRROMBK2 
DEY 

BNE KOPIE 
INC INDH 

BNE KOPIE 


LDA #$05 STA $C086 ist der 
dokumentierte Softswitch, 
der auf 3,5 Megahertz 
"Full Speed" umschaltet. 


LDA #$01 STA $C086 schaltet 

demgegenüber auf 1 Megahertz 
herunter. Das RAM der Karte 

ist danach jedoch weiterhin 

aktiv. 


LDA #$0A STA $C086 schaltet 
zusätzlich das RAM der Karte 

ab, so daß nunmehr das normale 
RAM des Apple aktiv ist. Da 
sich hier jedoch nur Zufallswerte 
befinden, muß man nach diesem 
Softswitch mit Reset neu booten. 
Danach besteht offenbar keine 
Möglichkeit mehr, die Karte zu 
reaktivierten, d.h. man muß 

den Apple zunächst wieder 
ausschalten, wenn man die 

Karte wieder aktivieren will. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
%* 
* 
* 
* 
* 
* 


LDA #$05 
STA ACCEL 
JMP RESET 


ORG $300 


ACCEL.LC.KOPIE 


Diese Routine kopiert zunächst 
den Accelerator-LC-Inhalt Bank2 
$D000-$FFFF nach $1000-$3FFF 
und kopiert dann $1000-$3FFF 

in das Accelerator-"ROM". 


Warnung: Vorher muß FPBASIC 
oder INTBASIC usw. in die LC 
Bank2 geladen worden sein! 


Applesoft-Beispiel: 


10 X = PEEK (49281): X = PEEK (49281) 

20 PRINT CHR$ (4) "BLOAD FPBASIC, A$DOO0" 
30 PRINT CHR$ (4) "BRUN ACCEL.LC.KOPIE" 
EQU $DO00 
$1000 
$4000 


‚Anfang 
;Ende+tl 
;-$FD 
$FE ;-$FF 
EQU $C086 





10 
20 
30 
40 
50 


X 





* Pointer initialisieren 


* 
LDA 
STA 
LDA 
STA 


LDA 
STA 
LDA 
STA 


*x* * * 


LDA 
STA 
LDA 
LDA 


$D000-$FFFF 


LDY 
LDA 
STA 
INY 
BNE 
INC 
INC 
LDA 
BNE 


LDA 
LDA 


Accelerator- 
fähig machen. 


#<INDADRl1 ;$D000 
INDl 

#>INDADR1 

INDI+1 


#<INDADR2 
IND2 
#>INDADR2 
IND2+1 


LC Bank 2 lese- 


#5 ;‚ACCEL:5 
ACCEL 

$C083 ‚RDBK2 
$C083 ;WRBK2 


nach $1000-$3FFF kopieren 


#0 
(IND1),Y 
(IND2);,Y 


LOOP1 
IND1+1 
IND2+1 
IND1+1 
LOOP1 


$co8l ;RDROMBK2 
$cosl ;: WRRAMBK2 


Pointer initialisieren 


LDA 
STA 
LDA 
STA 


LDA 
STA 
LDA 
STA 


#<INDADR2 ;$1000 
IND1 

#>INDADR2+1 
IND1+1 


#<INDADRl ;$DO00 
IND2 

#>INDADR1+1 
IND2+1 


* "ROM" der Accelerator-Karte 
schreibfähig machen! 


* 
LDA 
STA 
LDA 
LDA 


$1000-$3FFF 
d.h. in das 
kopieren! 


*kKk x x* 


LDY 
LOOP2 LDA 
STA 
INY 
BNE 
INC 
INC 
LDA 
CMP 
BNE 
* 


+3 
ACCEL 

$cosl ;RDROMBK2 
$cosl ;WRRAMBK2 


nach $DO00-$FFFF, 
Accelerator-"ROM" 


#0 
(IND1),Y 
(IND2),Y 


LOOP2 
IND1+1 
IND2+1 
IND1+1 
#>INDADR3 
LOOP2 


* "ROM" der Accelerator wie quasi 
* echtes ROM schreibunfähig machen 


* 
LDA 
STA 
LDA 
LDA 


RTS 


#5 ;‚ACCEL:5 
ACCEL 

$cosl ;RDROMBK2 
$cosl ; WRRAMBK2 


PRINT CHR$ (4)'"BLOAD ACCEL.LC.KOPIE" 


= PEEK (49281):X = 


INPUT "LC-FILE: ";X$ 
PRINT CHR$ (4) "BLOAD";X$;",A$DOO0" 


CALL 768 


PEEK (49281) 





der Profis EummmmmmmmEEEEEEEE 








(Deutsch)Stunde 
schlägt: dachte der 
Computer und 
lernte eilends um. 


IWT Logo ... 


®@ die leicht zu erlernende Computer-Sprache für jede 
Altersstufe 


® die Computer-Sprache mit modernen Strukturen, 
Prozeduren, lokalen Variablen, Listen usw. 


® die Computer-Sprache mit der »Igel-Grafik«, die von 
Anfang an zu sichtbaren Erfolgen führt 


@ die Computer-Sprache, die sofort auf den Kern der 
Sache — das Programmieren und Erproben von 
Programmen - führt 








... natürlich in deutsch 
(Befehle, Fehler- und Systemmeldungen in deutscher 
Sprache) 


IWT Logo 
- für Apple ][ //e, 2c 


Best.-Nr. 400 01 101 DM 395,—* 
— deutsche Erweiterung 

zum C64 Logo, Version C64 105 

Best.-Nr. 400 22 101 DM 98,-* 


“incl. MwSt./unverbindl. Preisempfehlung 


BC 
NE 


rn 
eco 
Fee. 


IWT Software Service -fürInformation, Wissenschaft, Technologie 
Technologie-Zentrum: Höhestraße 66, Postfach 1325, 5093 Burscheid ], IWT 
Tel. (02174) 62815, Tx 5213989 iwt - Vertrieb/Beratung: Dahlienstr. 4, 

Postfach 100243, 8011 Baldham, Tel. (08106) 31017, Tx 5213989 iwt 
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03500: 
0302: 
0304: 
0306: 


0308: 
O30A: 
030C: 
O30E: 


0310: 
0312: 
0315: 
0318: 


O31B: 
031D: 
O3I1F: 
0321: 
0322: 
0324: 
0326: 
0328: 
O32A: 


0326; 
O32F: 


0332: 


05335: 
0337: 
0339: 
033B: 


033D: 
033F: 
0341: 
0343: 


0345: 
0347: 
O34AA: 
O34D: 


A9 
8D 
AD 
AD 


AO 


91 
c8 


E6 
E6 
AS 
DO 


AD 
AD 


20 


05 

86 CO 
81 CO 
81 CO 


00 
FC 
FE 


F9 
FD 
FF 
FD 
Fl 


81 CO 
8l CO 


6F 03 


03 

86 CO 
8l CO 
8l CO 


ovoısıV uud 


ORG 


KR KKKKKTK KK NR] 


* 
INDADRl EQU 
INDADR2 EQU 
INDADR3 EQU 


INDl EQU 
IND2 EQU 
ACCEL EQU 


* 
* 
* 








$300 


ACCEL.ROM.KOPIEl (Pseudo-ROM) 


Diese Routine kopiert zunächst 
den Accelerator-"ROM"-Inhalt 
$D000-$FFFF nach $1000-$3FFF 
und kopiert dann $1000-$3FFF 
erneut in das Accelerator-"ROM", 
nachdem man (bei Bedarf) das 
spätere "ROM" entsprechend 
gepatcht hat. 


$D000 
$1000 
$4000 
$FC ;-$FD 
$FE ;-$FF 
$C086 


Kopie nach unten— 


* Pointer initialisieren 


* 
LDA 
STA 
LDA 
STA 


LDA 
STA 
LDA 
STA 


machen. 


“*x*K* x 


LDA 
STA 
LDA 
LDA 


* 


LDY 
LOOP1 LDA 
STA 
INY 
BNE 
INC 
INC 
LDA 
BNE 


LDA 
LDA 


“*rKkKKr 


JSR 


“*KKr KH 


LDA 
STA 
LDA 
STA 


LDA 
STA 
LDA 
STA 


“** %* %* 


LDA 
STA 
LDX 
LDX 


#<INDADRl ;$D000 
INDl 

#>INDADR1 

IND1+1 


#<INDADR2 ;$1000 
IND2 

#>INDADR2 

IND2+1 


Accelerator-"ROM" lesefähig 


+5 ‚ACCEL:5 
ACCEL 

$cosl ;RDROMBK2 
$cosl ;WRRAMBK2 


$D000-$FFFF nach $1000-$3FFF kopieren 


+0 
(IND1l),Y 
(IND2),Y 


LOOP1 
IND1+1 
IND2+1 
IND1+1 
LOOP1 


$c08l ; RDROMBK2 
$c0o8l ; WRRAMBK2 


Hier ggf. RTS, falls späteres 
"ROM" manuell vom Monitor aus 
gepatcht werden soll. 


PATCH 


_—— Kopie nach oben———— 


Pointer initialisieren 


#<INDADR2 ;$1000 
IND1 

#>INDADR2+1 
IND1+1 


#<INDADRl ;$D000 
IND2 

#>INDADRI+1 
IND2+1 


"ROM" der Accelerator-Karte 
schreibfähig machen! 


#3 ;ACCEL:3 
ACCEL 

$cosl ;RDROMBK2 
$cosl :WRRAMBK2 








87  * $1000-$3FFF nach $DO000-$FFFF, 
88 * d.h. in das Accelerator-"ROM" 
89  %* kopieren 
90 * 
0350: AO 00 91 LDY #0 
0352: Bl FC 92 LOOP2 LDA (IND1),Y 
0354: 91 FE 93 STA (IND2),Y 
0356: C8 94 INY 
0357: DO F9 95 BNE LOOP2 
0359: E6 FD 96 INC IND1l+1 
035B: E6 FF 97 INC IND2+1 
035D: A5 FD 98 LDA INDIl+l1 
035F: C9 40 99 CMP #>INDADR3 
0361: DO EF 100 BNE LOOP2 
101 x 
102 x "ROM" der Accelerator wie quasi 
103 x%* echtes ROM schreibunfähig machen 
104 x 
0363: A9 05 105 LDA #5 
0365: 8D 86 CO 106 STA ACCEL 
0368: AD 81 CO 107 LDA $c081 ; RDROMBK2 
036B: AD 81 CO 108 LDA $c081 ; WRRAMBK2 
109 x 
O36E: 60 110 RTS 
111 x 
112 % Gewünschte Patches hier ein- 
113 x fügen. Es gilt: 
114 x* $1000-$3FFF = $D000-$FFFF 
115 x 
036F: EA 116 PATCH NOP 
117 x 
118 % Beispiel für einen möglichen 
119 & Patch von XAM: Bewirkt 
120 x nach z.B. 1000.3FFF einen 
121 % Hexdump mit 16 statt sonst 
122 x 8 Bytes pro Zeile. 
123 x 
0370: A9 OF 124 LDA #15 ‚sonst 7 
0372: 8D A6 3D 125 STA $3DA6 ;$FDA6 
0375: 8D BO 3D 126 STA $3DBO ;$FDBO 
127 x* 
128 x Beispiel für einen weiteren 
129 x% Patch: Piepston-Änderung. 
130 x* 
0378: A9 20 131 LDA #$20 ‚sonst $0C 
037A: 8D ES 3B 132 STA $3BE5 ;$FBE5 
037D: 60 133 RTS 
l ORG $300 
2 - 
3 * ACCEL.ROM.KOPIE2 (Echtes ROM) 
4 u — 
5 . 
6 * Diese Routine kopiert zunächst 
7 * den echten Apple-ROM-Inhalt 
8 * $D000-$FFFF nach $1000-$3FFF 
9 * und kopiert dann $1000-$3FFF 
10 * in das Accelerator-"ROM", 
ll x nachdem man (bei Bedarf) das 
I * spätere "ROM" entsprechend 
13 * gepatcht hat. 
14 . 
15 INDADR1 EQU $DO000 
16 INDADR2 EQU $1000 
17 INDADR3Z EQU $4000 
18 IND1 EQU $FC ;-$FD 
19 IND2 EQU $FE ;-$FF 
20 ACCEL EQU $C086 
<1 * 
22 *— Kopie nach unten— 
23 * 
24 * Pointer initialisieren 
25 “ 
0300: A9 00 26 LDA #<INDADRl1 ;$D000 
0302: 85 FC 27 STA INDl 
0304: A9 DO 28 LDA #>INDADR1 
0306: 85 FD 29 STA INDI+1 
30 * 
0308: A9 00 31 LDA #<INDADR2 ;$1000 
030A: 85 FE 32 STA IND2 
030C: A9 10 33 LDA #>INDADR2 
030E: 85 FF 34 STA IND2+l 
35 ” 


0310: 
0312: 
0315: 
0318: 


O31B: 
031D;: 
O31F: 
0821: 
0322: 
0324: 
0326: 
0328: 
O32A: 


O32C: 
O32RF: 


0332: 


0335: 
0337: 
0339: 
033B: 


033D: 
033F: 
0341: 
0343: 


0345: 
0347: 
OSAA: 
034D: 


0350: 
0352: 
0354: 
0356: 
0357: 
0359: 
035B: 
035D: 
O35F: 
0361: 


0363: 
0365: 
0368: 
036B: 


O36E: 


O36F: 


0370: 


A9 
8D 
AD 
AD 


AO 
Bl 
9 
08 
DO 
E6 
E6 
A5 
DO 


AD 
AD 


20 


A9 


A9 
85 


A9 


A9 
85 


A9 
8D 
AE 
AE 


A9 
8D 
AD 
AD 


60 


EA 


60 


05 

86 CO 
81 CO 
81 CO 


00 
FC 
FE 


F9 
FD 
FF 
FD 
Fl 


8l CO 
81 CO 


6F 03 


00 
FC 
10 
FD 


00 
FE 
DO 
FF 


03 

86 CO 
81 CO 
8l CO 


00 
FC 
FE 


F9 
FD 
FF 
FD 
40 
EF 


05 

86 CO 
81 CO 
81 CO 


36 
37 
38 
39 
40 


42 


104 
105 
106 
107 
108 
109 
110 
4111 
112 
113 
114 
115 
116 
117 
118 
119 
120 








* Echtes Apple-ROM lesefähig 


* machen. 
* 
LDA #3 :ACCEL: 3 
STA ACCEL 
LDA $Cc081 ‚RDROMBK2 
LDA $c081 ;WRRAMBK2 
%* 


* $D0O00-$FFFF nach $1000-$3FFF kopieren 
%* 

LDY #0 

LDA (INDl), 
STA (IND2), 
INY 
BNE 
INC 
INC 
LDA 
BNE 


LOOP1 T 
Y 
LOOP1 
IND1+1 
IND2+1 


IND1+1 
LOOP1 


LDA 
LDA 


$co81l 
$co8l 


; RDROMBK2 

; WRRAMBK2 

* 

* Hier ggf. RTS, falls späteres 

* "ROM" manuell vom Monitor aus 

* gepatcht werden soll. 

* 
JSR PATCH 

* 

*-———— Kopie nach oben-——— 

* 

* Pointer initialisieren 

* 
LDA 
STA 
LDA 
STA 


#<INDADR2 
INDl 
#>INDADR2+1 
IND1+1 


;$1000 


LDA 
STA 
LDA 
STA 


#<INDADR1 
IND2 
#>INDADRI1+1 
IND2+1 


;$D000 


"ROM" der Accelerator-Karte 
schreibfähig machen! 


*%* * x* 


LDA #3 

STA ACCEL 
LDX $C081 
LDX $C081l 


;ACCEL: 3 


; RDROMBK2 
; WRRAMBK2 


$1000-$3FFF nach $DO00-$FFFF, 
d.h. in das Accelerator-"ROM" 
kopieren 


“*kKkKr x 


LDY #0 

LDA (IND1),Y 
STA (IND2),Y 
INY 
BNE 
INC 
INC 
LDA 
CMP 
BNE 


[* 
oO 
oO 
"u 
uw 


LOOP2 
IND1+1 
IND2+1 
IND1+1 
#>INDADR3 
LOOP2 


"ROM" der Accelerator wie quasi 
echtes ROM schreibunfähig machen 


“x xr* + 


LDA #5 

STA ACCEL 
LDA $c081 
LDA $co81l 


; RDROMBK2 
; WRRAMBK2 


* 


RTS 


Gewünschte Patches hier ein- 
fügen. Es gilt: 
$1000-$3FFF = $D000-$FFFF 


“= KK 


PATCH 
* 

* Patch-Routine nicht aktiv 
x 


NOP 


RTS 
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Turtle Graphic ist ein in viele Hoch- 
sprachen, wie zum Beispiel in UCSD- 
Pascal oder im Apple Graforth ][, inte- 
griertes Graphic-System. Es eignet 
sich besonders für den unbedarften 
Anwender, der damit ohne mathemati- 
schen Ballast an den Computer heran- 
geführt wird. Eine der bekanntesten 
Anwendungen dürfte wohl die Pro- 
grammiersprache Logo sein, die sich 
vor allem für Kinder eignet. 


Harald Grumser 
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Das hier vorgestellte Programm stellt die 
wichtigsten Befehle der Turtle (Schildkrö- 
te) bereit. Nach dem Programmstart er- 
scheint in der Mitte der HGR1 eine Turtle 
in Form eines Quadrates, die ihren 
Schwanz, der mit einem Schreibstift ver- 
sehen ist, zum Boden gesenkt hat und in 
Richtung Bildschirmoberkante schaut. Im 
unteren Teil des Bildschirmes erscheint 
der Doppelpunkt als Promptzeichen; die 
Turtle erwartet einen Befehl. 

Gibt man nun zum Beispiel „50 MOVE“ 
ein, so bewegt sich die Turtle um 50 Bild- 
punkte nach oben. „90 TURN 50 MOVE“ 
dreht die Turtle um 90 Grad nach rechts 
und bewegt sie wieder um 50 Bildpunkte. 













Applesoft simuliert 
Turtle Graphic 
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Wiederholt man dies noch zweimal, so hat 
sie ein Quadrat gezeichnet. 

Die Befehle, die die Turtle ausführen kann, 
lauten wie folgt: 


MOVE bewegt die Turtle um die angege- 
bene Anzahl von Punkten in die Richtung, 
in der sie gerade steht. 








TURN dreht die Turtle um die angegebene 
Gradzahl, wobei positive Zahlen nach 
rechts drehen und negative nach links. 
MOVETO bewegt die Turtle zu den ange- 
gebenen Koordinaten, wie sie bei HPLOT 
benutzt werden (279 - 159 Punkte). 
TURNTO dreht die Turtle in die angegebe- 
ne Richtung, („-90 TURNTO“ dreht die 
Turtle in Richtung des linken Bildschirm- 
randes.) 

TURTLE löscht den Bildschirm und posi- 
tioniert die Turtle wie beim Programmstart. 
PENUP hebt den Schreibstift, so daß bei 
der nächsten Bewegung kein Strich gezo- 
gen wird. 

PENDOWN senkt den Schreibstift wieder. 


Der Leser wird sich vielleicht fragen, war- 
um die Parameter vor dem Befehl stehen. 
Tippt man eine Zahl ein, so wird diese auf 
dem sogenannten Stack (Stapel) abgelegt. 
Braucht die Turtle einen Parameter, so holt 
sie sich diesen vom Stack. Ein Quadrat 
läßt sich also auch durch Eingabe von „50 
90 50 90 50 90 50 MOVE TURN MOVE 
TURN MOVE TURN MOVE“ zeichnen. 
Das gleiche gilt auch für die Arithmetik; die 
Turtle kennt die vier Grundrechenarten. 
Zuerst werden die Operanden auf dem 
Stack abgelegt und dann der Operator dar- 
auf angewandt. So ergibt „20 30 + 
MOVE“ eine Bewegung um 50 Schritte. 
Dieses Verfahren nennt sich Reverse Po- 
lish Notation (Umgekehrte polnische Nota- 
tion) oder auch Postfix-Notation. Um dies 
noch einmal an einem Beispiel zu erläu- 
tern, sei der Ausdruck (1+2) * (3+4) zu 
berechnen: Das Ergebnis würde lauten 
„12+34+ x *. Die Turtle stellt nun 
einige Befehle zur Verfügung, um den 
Stack zu manipulieren: 


+ — * / holen zwei Zahlen vom Stack, 
verknüpfen sie mit dem jeweiligen Opera- 
tor und legen das Ergebnis wieder auf dem 
Stack ab. 

PULL holt eine Zahl vom Stack, ohne sie 
zu benutzen. 

DUP dupliziert die oberste Zahl auf dem 
Stack. „DUP x“ wäre somit die Operation 
zum Potenzieren. 

SWAP vertauscht die oberen beiden Zah- 
len auf dem Stack. „3 10 SWAP -“ ergibt 
also 7, während „3 10 -“ -7 ergibt. 

PICK holt sich einen Index vom Stack und 
kopiert dann die von oben indizierte Zahl 
.auf den Stack. Ein Beispiel macht dies 
wohl deutlicher: „10 20 30 2 Pick“ ergibt 
auf dem Stack „10 20 30 20“, „1 PICK“ 
enspricht also dem DUP-Befenhl. 


Bei dem Quadrat oben würde es sich als 
praktisch erweisen, wenn mehrmals zu 
wiederholende Befehle als Schleife (Loop) 
eingegeben werden könnten. Selbstver- 
ständlich ist die Turtle auch dazu in der 
Lage. Die zu wiederholenden Befehle 
werden zwischen „DO“ und „LOOP“ ein- 
geschlossen. Als Schleifenzähler holt sich 
„DO“ eine Zahl vom Stack. „4 DO 50 
MOVE 90 TURN LOOP“ würde also unser 
Quadrat zeichnen. 


Unsere Turtle kann jedoch noch mehr, 
nämlich neue Befehle lernen. Eine zu ler- 
nende Befehlsfolge wird durch „LEARN>" 
und „<” eingeschlossen, wobei nach 
„LEARN>" der Name des neuen Befehls 
folgt. Nach der Eingabe von „LEARN> 
QUADRAT 4 DO 50 MOVE 90 TURN 
LOOP <“ zeichnet die Turtle jedesmal ein 
Quadrat, wenn der Befehl „QUADRAT“ 
eingegeben wird. Der linke Stern in der 
Grafik 1 wird somit gezeichnet durch die 
Befehle „20 DO QUADRAT 18 TURN 
LOOP“ 





Es sei nicht verschwiegen, wie der Fünf- 
zack in der abgebildeten Grafik erzeugt 
wird. „LEARN> FUENFZACK 216 TURN- 
TO PENUP DUP 2 / MOVE PENDOWN 18 
TURNTO 5 DO DUP MOVE 144 TURN 
LOOP <“ zeichnet einen Fünfzack um die 
Stelle, an der sich die Turtle gerade befin- 
det, in der angegebenen Größe. 

Dem Leser sei es überlassen auszutüfteln, 
wie die Figur in der Bildmitte entsteht. Ein 
Tip: Es handelt sich um eine Menge ver- 
drehter Siebenecke. 


Abschließend sollen noch einige Befehle 
erläutert werden, die das Arbeiten mit der 
Turtle erleichtern: 


TEXT schaltet auf nur Text um, so daß der 
ganze Bildschirm zur Eingabe von Befeh- 
len zur Verfügung steht. 

GRAPH schaltet zurück auf HGR1, ohne 
den Bildschirm zu löschen. 





Grafik 4 


LIST listet alle Befehlswörter samt der neu 
erlernten. Nach 22 Wörtern geht es erst 
nach Tastendruck weiter. 

FORGET vergißt alle Befehle ab dem spe- 
zifizierten. Da neue Befehle bereits neu 
erlernte beinhalten können, geht die Turtle 
davon aus, daß nach Löschen des Befehls 
„QUADRAT“ auch der Befehl „FUENF- 
ZACK“ nicht mehr ausgeführt werden 
Kann. 

STACK |istet den gesamten Stack, wobei 
auch hier nach 22 Zahlen auf einen Ta- 
stendruck gewartet wird. Der Stack kann 
insgesamt 101 Zahlen beinhalten. 

BYE verabschiedet sich und springt zu- 
rück in den Applesoft-Direktmodus. 


Zur Eingabe sei folgendes bemerkt: In 
einer Eingabezeile können bis zu 50 Be- 
fehle stehen, die von mindestens einem 
Blank (Leerzeichen) voneinander getrennt 
sein müssen. Außer den Namen nach 
„LEARN>" und „FORGET“ können sie 
aber auch einzeln eingegeben werden. 
Tritt während des Lernens ein Fehler auf, 
so wird alles ignoriert. Dasselbe gilt, wenn 
mehr „DO“ als „LOOP“ Befehle oder um- 
gekehrt im Lernmodus auftauchen. Schlei- 
fen werden dadurch realisiert, daß deren 
Inhalt vorübergehend gelernt wird. Daher 
gilt für sie dasselbe wie oben. Während 
des Lernens führt die Turtle die Befehle 
nicht aus. Sollte sie also einmal wider Er- 
warten nicht reagieren, so kann das daran 
liegen, daß ein „<“ oder „LOOP“ fehlt. 
„<” schließt im Direktmodus alle Schlei- 
fen, ohne sie auszuführen, meldet sich 
aber mit „MISSING DO“. Die Standardbe- 
fehle können nicht mit „FORGET“ ge- 
löscht werden, und ein bereits erlernter 
Befehl kann nicht nochmals gelernt 
werden. 

Die Fehlermeldungen sind im großen und 
ganzen selbsterklärend. „OUT OF MEMO- 
RY“ tritt auf, wenn die Anzahl der erlernten 
Befehle plus der der aktiven Schleifen 21 
überschreitet. 

Während die Turtle ein Programm abarbei- 
te, kann sie durch Ctrl-S gestoppt 
werden. 


Die Turtle kann sich nicht über den Bild- 
schirmrand hinaus bewegen, sondern 
schneidet die Koordinaten ab, was bei grö- 
Beren Figuren zu Verzerrungen führt. 


Das Programm selbst ist nicht im Hinblick 
auf maximale Geschwindigkeit, sondern 
auf Lesbarkeit hin geschrieben worden. 











Der einzige Beitrag zur Erhöhung der Ge- 
schwindigkeit ist die Verlegung der Initiali- 


sierungsroutine an den Schluß (Zeile 
9000-9995) und die Nennung der Varia- 
blen in der Reihenfolge ihrer Häufigkeit. 

In Zeile 20-60 wird auf die Eingabezeile 
gewartet und daraus in der Routine 8000- 
8999 ein einzelner Befehl abgespalten 
und dessen Index (Variable K) gesucht. 
Danach wird in der Routine 70-99 in das 
entsprechende Unterprogramm verzweigt. 
Hier wird auch das Learnflag gesetzt und 
mit Hilfe von Epsilon die Schleifentiefe 
gezählt. Ist der Befehl selbst eine Zahl, so 
wird K um OFFSET erhöht, somit enthält K 
die Information über die Zahl. 

Die Routinen in 100-999 sind die ver- 
schiedenen Unterprogramme für die Tur- 
tie, die in 1000-1999 die für den Stack. 
Bevor auf die LOOP- und LEARN>-teile 
eingegangen wird, ist es sinnvoll, die Ab- 
speicherung der neuen Befehle zu erläu- 
tern. Für die neu zu lernenden Befehle gibt 
es eine Matrix L, die aus 21 Zeilen zu je 50 
Spalten besteht. Ein Befehl besetzt nun 
eine Zeile derart, daß dessen Indizes in 
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dieser Zeile nacheinander abgelegt wer- 
den, gefolgt von einer Null. 

Wird nun einer dieser Befehle aufgerufen, 
so verzweigt das Programm nach 7000, 
wo diese einzelnen K-Werte ausgelesen 
und dem Verteiler ab Zeile 70 zugeführt 
werden. Da es möglich ist, in einem neuen 
Befehl einen ebenfalls neuen Befehl auf- 
zurufen, kann dieses Unterprogramm sich 
selbst neu aufrufen. Damit bei dieser Re- 
kursion keine Zeiger verlorengehen, müs- 
sen diese in Form von Vektoren L1,L2 und 
deren Pointer NLP aufbewahrt werden. 
Dasselbe gilt für die Routine in 2500-2999, 
die dieselbe Rekursion für geschachtelte 
Schleifen darstellt, wobei diese über einen 
anderen Pointer LLP verwaltet werden. 
Bleibt noch der Schleifenstart in 2000- 
2499, der einsichtig ist, und die Lernrouti- 
ne in 3000-3999: Dort wird der Name ab- 
gefragt, abgespeichert und die Pointer zur 
Abspeicherung in der L-Matrix gesetzt, 
beziehungsweise eine Null ans Ende der 
Zeile geschrieben und die Anzahl der Be- 
fehle IT um eins erhöht. 

In der Fehlerbehandlungsroutine in 6000- 
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6999 ist Zeile 6510 zu erläutern. Diese 
Interpreter-Routine initialisiert den Return- 
stack. Dies ist erforderlich, da sonst nach 
einem Programmabsturz der Returnstack 
noch belastet wäre und die für die Rekur- 
sionen benötigte Schachtelungstiefe nicht 
mehr erreicht würde. (Der Returnstack 
kann nur 25 Returnadressen aufnehmen). 
Es ist in diesem Zusammenhang auch da- 
von abzuraten, die Variable NL zu vergrö- 
Bern, da in nicht mehr wie 25 Unterpro- 
grammebenen gesprungen werden kann. 


Zuletzt noch ein paar Tips für diejenigen, 
die das Programm durch eigene Befehle 
erweitern wollen. Zuerst schreibe man sei- 
ne Erweiterung in einen freien Bereich. 
Danach gebe man dieser einen Namen. 
und füge diesen in Zeile 9220 an. Sodann 
erhöhe man IS in Zeile 9110 um eins und 
erweitere die Zeilenliste in Zeile 90 um 
seine neue Routine. 

Es ist davon abzuraten, seinen neuen Be- 
fehl in der Mitte der vorhandenen Befehle 
anzuordnen, da dann die Abfragen in Zeile 
70-99 nicht mehr stimmen. 


& 


40,- DM 


Joyport, zum Anschluß von zwei 
ATARI-Joysticks 


ADD2B, (VIA 6522) 
mit RAM + Backup 


ADD2L, Leerplatine 


ADD4 BB, (PIA 6821) 
mit RAM + Backup 


ADDA4L, Leerplatine 
PIA-Card mit’Wrap-Feld ausgerüstet 


170,- DM 
99, DM 


150,- DM 
45,- DM 


Entwicklungen auf Anfrage 


” 





82 


84 
86 
88 
90 


92 


100 
110 
120 
130 


140 : 


150 
160 
170 
180 
190 


REM ea 
REM TURTLE GRAPHIK 
REM aka 
REM 

LOMEM: 4 * 16 1 3 

REM Hinter HGR 

GOSUB 9000 

GOSUB 100 


REM Hole Eingabezeile und arbeite sie ab 
PRIGHT = O0 

INPUT ":";LINE$ 

GOSUB 8000 

IF K= 0 THEN 25 

IF K= IT + 2 THEN ERFLG = 1: GOTO 6000 
GOSUB 70 

GOTO 35 


REM Verteiler 

IF PEEK (KBD) = CS THEN 6000 

IF K = 22 THEN LRNFLG = LRNFLG - EPS: REM IN$ = "LOOP" 
IF LRNFLG = 0 OR K = 24 THEN 88: REM Direkt Modus oder 
IN$ = cc" 

IF LRNFLG < O0 THEN ERFLG = 5: GOTO 6000 

IF K = 21 THEN LRNFLG = LRNFLG + EPS: REM IN$="DO" 
L{LLP,L2{LLP)) = K:L2{LLP) = L2(LLP) + 1: IF L2(LLP) < 
INS THEN 86 
ERFLG = 8: GOTO 6000 

RETURN 

IF K> IS + NL + 2 THEN 1100 

ON K GOTO 
100,200,300,400,500,600,650,700,750,800,900,1200,1300, 
1400, 1500,1600,1600,1600,1600,1900,2000,2500,3000,3500, 
9996 

GOTO 7000: REM 
gelernten Befehls 


K > IS + 1 -> Ausfuehren eines 


REM TURTLE 

HOME : HGR : VTAB 21 

DIR = 0:PX = MX / 2:PY=MY /2 
HC = 1: HCOLOR= 3 


REM DRAW TURTLE 
XDRAW 1 AT PX,PY 

IF NOT HC THEN 190 
HPLOT PX,PY 

RETURN 


199 : 


200 
205 
210 
215 
220 
225 
250 
235 
240 
245 
250 
255 


REM MOVE 

GOSUB 1000 

GOSUB 150 
PX = PX + SIN (DIR / 180 « PI) & ST 
PY = PY- CoS (DIR / 180 « PI) « ST 
IF PX > MX THEN PX = MX 

IF PX < O0 THEN PX = 0 

IF PY > MY THEN PY = MY 

IF PY< 0 THEN PY=0 

IF NOT HC THEN 255 

HPLOT TO PX,PY 

GOTO 150 


2393 : 


300 
310 
320 
350 
340 
399 
400 
410 
420 
450 
440 


450 
460 
499 
500 
510 
520 
550 
599 
600 
610 
620 
649 
650 
660 


REM TURN 
GOSUB 1000 

DIR = DIR + ST 

DIR = 360 * (DIR / 360 - INT (DIR / 360)) 
RETURN 


REM MOVETO 

GOSUB 1000 

A=ST 

GOSUB 1000 

GOSUB 150: REM Kein XDRAW der Turtle vor Pruefung des 
Stacks 

PY = A:PX =ST 

GOTO 225 


REM TURNTO 
GOSUB 1000 
DIR = ST 
GOTO 330 


REM PENUP 
HC = 0 
RETURN 


REM PENDOWN 
HC = 1 





670 


grafik 4.4 


RETURN 


699 : 


700 
710 
720 
730 
740 


REM TEXT 
TEXT : HOME : INVERSE 
PRINT SPC( 13);"TURTLE GRAPHIK"; SPC( 13) 


749 : 


750 
760 


770 
780 
190 


NORMAL : POKE 34,1: REM Textfenster: WINDOWTOP = 1 
RETURN 
REM GRAPH 


POKE - 16304,0: REM HGR Schalter; andere Schalter 
durch TURTLE gesetzt 

HOME 

VTAB 21 

RETURN 


199 : 


800 
810 
820 
850 
840 
850 
860 


REM LIST 

FOR I = 0 TO IT 

PRINT "- ";1$(I) 

IF (I+1) /22< > INT ((I+ 1) / 22) THEN 850 
GET A$: IF ASC (A$) = CS - 128 THEN I = IT 

NEXT 

RETURN 


899 : 


900 
910 
920 
930 
940 
950 
960 
970 
999 
1000 
1010 
1030 
1040 
1050 


REM FORGET 

IF LRNFLG < > O0 THEN 940 

GOSUB 8000 

IFK> IS+ 1ANDK< = IT + 1 THEN 950 
ERFLG = 9: GOTO 6000 

IT=K-2 
LLP=IT-IS-]l 

RETURN 


REM Hole vom Stack 
IF SP < O0 THEN ERFLG = 2: GOTO 6000 


ST = ST(SP) 
SP=SP-1 
RETURN 


1099 : 


1100 
1230 
1120 
1130 
1140 


REM Schiebe auf den Stack 

IF SP = 100 THEN ERFLG = 3: GOTO 6000 
SP=SP+l1 
ST(SP) = K - OFFSET 

RETURN 


1199 ; 


1200 
1210 
1220 
1230 
1299 
1300 
1310 
1320 
13530 
1599 
1400 
1410 
1420 
1430 
1440 
1499 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1599 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1699 
1900 
1905 
1910 
1920 
1930 
1940 
1950 
1960 


REM PULL holt ein "Dummy" 
SP=SP-]1l 

IFSP< -1 THENSP= -]1 
RETURN 


REM DUPliziere 

IF SP < 0 THEN 1010 
K = ST(SP) + OFFSET 
GOTO 1110 


REM SWAP vertauscht die oberen beiden Stackelemente 
A = ST(SP) 
ST(SP) = ST(SP - ]) 

ST(SP-1)=A 

RETURN 


REM PICK holt das von oben indizierte Stackelement 
GOSUB 1000 

I=SP-ST+]1l 

IF SP < 0 THEN 1010 

IF I > SP THEN 1580 

IF I<0O THENI=O0 


SP=SP+1 
ST(SP) = ST(I) 


RETURN 


REM STACK + — * / 

GOSUB 1000 

ON K - 15 GOTO 1630,1640,1650, 1660 
ST(SP) = ST(SP) + ST: RETURN 
ST(SP) ST(SP) — ST: RETURN 
ST(SP) ST(SP) *« ST: RETURN 

IF ST= 0 THEN ERFLG = 4: GOTO 6000 
ST(SP) ST(SP) / ST: RETURN 


REM STACK 

I= -]1 

I=1+ 1: IF I > SP THEN 1960 

PRINT CHR$ (91);" ";ST(I);" "; CHR$ (93) 

IF (I+1) /22< > INT ((I +1) / 22) THEN 1950 
GET A$: IF ASC (A$) = CS - 128 THEN I = SP 

GOTO 1910 

RETURN 


1999 : 


29 





Ten aE—L—————nn——————————————————————————LLLeeeeeeeeeeeeeeLu—————————————————— —— 


30 


2000 
2010 
2020 
2030 
2040 
2050 
2499 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


2989 : 


3000 
3010 
5020 
35030 
3040 
3050 
3060 
3070 
3080 
3090 
3499 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 


REM DO-Schleifenstart 

LRNFLG = LRNFLG + EPS 

LLP =LLP +1 

IF LLP > NL THEN ERFLG = 7: GOTO 6000 
L2(LLP) = 0 

RETURN 


REM Schleifenende (LOOP) 
LILLP,LZ{LLP)) = 0 

GOSUB 1000:COUNT(LLP) = ST 

IF COUNT(LLP) < = 0 THEN 2560 
K= IS + LLP + 2: GOSUB 7000 
COUNT(LLP) = COUNT(LLP) - 1: GOTO 2530 
LLP=LLP-1 

RETURN 


REM LEARN 

IF LRNFLG < > O0 THEN 3040 

GOSUB 8000 

IF K= IT + 2 THEN 3050 
ERFLG = 1: GOTO 6000 
LRNFLG = 1 

IF IT - IS > NL THEN ERFLG = 7: GOTO 6000 
I$(IT + 1) = IN$ 
ELLP = LLP + 1:L2(LLP) = 0 

RETURN 


REM "<! Ende des Lernmodus 

IF LRNFLG = 0 THEN 6200 
LRNFLG = LRNFLG - 1 

IF LRNFLG < O0 THEN ERFLG = 5: GOTO 6000 


IF LRNFLG > O0 THEN ERFLG = 6: GOTO 6000 
ir= IT +1 
L(LLP,L2(LLP)) = 0 

RETURN 


3999 : 


6000 
6010 
6020 
6030 
6040 


6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6200 
6500 
6510 
6520 
6550 
6999 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
17999 
8000 
8010 
8020 


8030 
8040 
8050 


8060 
8070 
8080 
8100 
8110 
8120 
8130 
8140 
8150 
8999 
9000 


REM Fehlerbehandlungsroutine 

POKE 49168,0 

REM Tastaturruecksetzimpuls 

PRINT G$; 

ON ERFLG GOTO 
6060,6070,6080,6090,6100,6110,6120,6130,6140 
GOTO 6200 

PRINT "SYNTAX ERROR": GOTO 6200 

PRINT "STACK EMPTY": GOTO 6200 

PRINT "STACK FULL": GOTO 6200 

PRINT "DIVISION BY ZERO": GOTO 6200 
PRINT "MISSING DO": GOTO 6200 

PRINT "MISSING LOOP": GOTO 6200 

PRINT "OUT OF MEMORY": GOTO 6200 
PRINT "TO MANY INSTRUCTIONS'": GOTO 6200 
PRINT "CAN'T FORGET" 
ERFLG = O:LRNFLG = 0 
NIP= - 1:LLP=IT- IS -Ll 

CALL - 10621 

REM lInitialisiere Basic-Return-Stack 
GOTO 25 


REM Fuehre einen gelernten Befehl aus 
NIP = NIP +1 
IF K> IS + NL + 2 THENK = K - OFFSET 
L1(NIP) = K - 2 - IS:L2(NIP) = 0 
K = L(L1(NIP),L2(NIP)):L2(NIP) = L2(NIP) +1 
IF K= 0 THEN NIP = NIP - 1: GOTO 7070 
GOSUB 70: GOTO 7040 
RETURN 


REM Naechster Instruktions-Index 
LINE$ = LINE$ + '" " 
PRIGHT = PRIGHT + 1: IF PRIGHT > LEN (LINE$) THEN K = 
0: RETURN 
IF MID$ (LINE$,PRIGHT,1l) = " " THEN 8020 
PLEFT = PRIGHT 
PRIGHT = PRIGHT + 1: IF MID$ (LINE$,PRIGHT,l) < > "" 
THEN 8050 
IN$ = MID$ (LINE$,PLEFT,PRIGHT - PLEFT) 
IF VAL (IN$) = O0 AND IN$ < > "0" THEN 8100 
K = OFFSET + VAL (IN$): RETURN 
K=-IT+] 
FOR I = 0 TO IT 
IF I$(I) < > IN$ THEN 8140 
K = I:I= IT 
NEXT :K=K+]1| 
RETURN 


REM lInitialisierung 






































FOR I = 768 TO 768 + 9 

9020 READ A: POKE I,A: NEXT 

9030 DATA 1,0,4,0,40,54,63,36,4,0 

9040 POKE 232,0: POKE 233,3 

9050 ROT= 0: SCALE= 1 

9060 REM Formtabelle fuer die Turtle 

9070 DIM ST(100): REM 101 Stackelemente 

9080 SP= - 1:ST = 0: REM Stapelzeiger (Stackpointer) und 
angefordertes Stackelement 

9090 NL = 20: REM Anzahl der zu lernenden Befehle 

9100 INS = 50: REM Anzahl der Instruktiuonen pro Befehl 

9110 IS = 24: REM Anzahl der Standartbefehle 

9120 IT = IS: REM Anzahl der Befehle insgesamt 

9130 DIM I$(IS + NL + 1): REM Feld mit den Befehlsnamen 

9140 FOR I =0 TO IS 

9150 READ I$(I): NEXT 

9160 DATA TURTLE,MOVE, TURN, MOVETO 

9170 DATA TURNTO, PENUP, PENDOWN 

9180 DATA TEXT,GRAPH,LIST, FORGET 

9190 DATA PULL,DUP,SWAP,PICK 

9200 DATA +,-,*,/,STACK 

9210 DATA DO,LOOP,LEARN>,< 

9220 DATA BYE 

9230 DIM L(NL,INS): REM Matrix mit NL Befehlen zu je INS 


Instruktionen 

9240 DIM LI(NL),L2(NL): REM Zeilen- und Spaltenindex der 
"L"-Matrix 

9250 DIM COUNT(NL): REM Zaehler fuer geschachtelte 
Schleifen 


9260 K = O0: REM Instruktionsindex 

9270 KBD = 49152: REM PEEK zur Tastaturabfrage 

9280 CS = 147: REM CS = ASC (CTRL-S) 

9290 OFFSET = 2 1 15: REM K wird um OFFSET erhoeht um 
Zahlen als Instruktionen abzuspeichern 

9300 LLP = - 1: REM Zaehler fuer LEARN> und aktive 
Schleifen 

9310 NIP = LLP: REM Zaehler fuer geschachtelte Befehle 

9320 LRNFLG = 0: REM Wird waehrend des Lernmodus auf 1 
gesetzt 

9330 ERRFLG = 0: REM Fehlercode fuer Fehlerbehandlung 

9340 EPS = 1 / 64: REM LRNFLG wird bei jedem DO um EPS 
erhoeht und bei jedem LOOP erniedrigt 

9350 PI = ATN (1) = 4 

9360 PX = 0:PY = 0: REM Plot-Koordinaten 

9370 HC = 0: REM Logische Variable fuer PENUP/PENDOWN 

9380 DIR = O0: REM Richtung der Turtle in Grad 

9390 MX = 279:MY = 159: REM HGR Fenster 

9400 PLEFT = 0: REM Linker Zeiger der Eingabezeile 

9410 PRIGHT = O0: REM Rechter Zeiger der Eingabezeile 

9420 A = 0:I = 0: REM Allgemeine Variablen 

9430 G$ = CHR$ (135): REM Bell 

9440 REM LINE$,IN$ sind die Eingabezeile und die daraus 

abgespaltenen Befehle 

RETURN 


















REM Ende des Programms 
9997 TEXT : HOME 

9998 PRINT "END OF TURTLE GRAPHIC"" 
END 





REM HINWEIS: 

10002 REM Wer dieses Programm mit allen REM's abtippt 

10003 REM und es dann ausfuehrt wird sich wundern. 

10004 REM Programme, die mehr als 25 Diskettensektoren 
lang sind 

10005 REM und die HGR aufrufen, loeschen sich zum Teil 

selbst. 


Peeker-Sammeldiskette 


Die abgedruckten größeren Programme 
sind auch als Sammeldisketten erhältlich, 
die etwa jeden zweiten Monat erscheinen 
und die Listings der vorangehenden zwei 
Hefte zusammenfassen. 
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APPLE 


MASCHINEN 
SPRACHE 


Der Einstieg über BASIC! 


Die Idee: Maschinenbefehle des Mikroprozessors 
6502 über die BASIC-Befehle POKE, CALL, PEEK im 
Apple abspeichern, ablaufen lassen und Ergebnisse in 
das BASIC-Programm zurücklesen. Grundkenntnisse 
in Basic sind erforderlich. Anschauliche Darstellung der 
6502-Funktionen, der Speicher im Apple und der 
Wirkungen von Maschinenbefehlen — verbunden mit 
Experimentierprogrammen zur Grafik, Akustik, Arith- 
metik, Textdarstellung, Verbindung von Bild und Ion 
sowie zum Aufruf der zahlreichen, bereits vorhandenen 
Maschinenprogramme im Apple. 

Der Höhepunkt: Eine schrittweise Einführung in die 
professionelle Entwicklung von Maschinenprogram- 
men mit APPLE SYSTEM-MONITOR und APPLE 
MINI ASSEMBLER. 


Von D. Inman/K. Inman, 224 Seiten, Softcover, 


DM 49,- 


te-wi Verlag GmbH 


ER 
Theo-Prosel-Weg | gen 
8000 München 40 


Weiterführende Literatur... 


APPLE II 


RN 


I APPLE II - 
= Anwenderhandbuch 


(L. Poole) 


Erst mit Hilfe dieses Leitfadens werden Sie 


1 Ihren Apple Il erfolgreich einsetzen, denn 
we lext und Bildmaterial gehen weit über das 


hinaus, was herstellerseitig an Literatur 
angeboten wird. 


416 Seiten, Softcover, DM 56,- 


APPLE IIPASCAL - 
Eine praktische Anleitung 
(A. Luehrmann, H. Peckham) 


= Unentbehrlich für alle, die die Programmier- 
eu sprache PASCAL lernen wollen und 
“ea /ugang zu einem Apple-Computer haben. 


544 Seiten, Softcover, DM 59,- 


6502 - 

Programmieren in Assembler 

(L. Leventhal) 

Dieser Titel aus einer ganzen Reihe von 
Büchern über die Assemblersprachen- 
Programmierung befaßt sich ausführlich mit 
dem weitverbreiteten Mikroprozessor 6502. 


704 Seiten, Softcover, DM 59,- 


LOGO - 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. Für die 
Computer C64, ATARI, APPLE II, IBM-PC 
und TI-99. 

Hochwertiges Textbuch für Logo-Kurse für 
zu Hause und im Lehrbereich. 


A4, DM 59,- (4. Quartal 84) 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia- 
gramme — animiert oder als Standbilder — 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 

ca. 190 Seiten, Softcover, DM 49,— 


Macintosh Programmier-Handbuch 
(David Lien) 

Macintosh — Pionier des graphischen 
Computerdialogs — benutzt MICROSOFT 
BASIC. D. Lien’s Buch ist eine souveräne, 
zuverlässige Einführung und Referenz zu 
Macintosh’s Basic. 


450 Seiten, DM 59,- (4. Quartal 84) 


DAVID LIEN 


Noch im Programm: 
VisiCalc, 50 Programme auf Diskette, DM 79,- 677 BASIC-Programme, A4, DM 39,- © CP/M und Wordstar, DM 29,80. 












Teil 1: Double Lores 


Die erweiterte 80-Zeichenkarte des Apple 
le = 64K-Karte läßt sich auf vielfältige 
Weise einsetzen, z.B. als 


— 80-Zeichen-Bildschirm-Teilspeicher 

— RAM-Diskspeicher 

— Teilspeicher für doppelte hochauflösen- 
de Grafik (Double Hires: 560 mal 192 statt 
280 mal 192 Bildpunkte) 

— Teilspeicher für doppelte niedrigauflö- 
sende Grafik (Double Lores: 80 mal 48 
statt 40 mal 48 Kästen). 


Zur Double Hires werden von Apple in den 
technischen Unterlagen nur vage Anga- 
ben gemacht, und die Möglichkeit von 
Double Lores wird überhaupt nicht ange- 
deutet. Im ersten Teil dieser Folge wird auf 
die Double Lores eingegangen, während 
sich der zweite Teil mit der Double Hires 
befaßt. 


Die Double Lores wird meines Wissens 
hier erstmals geschildert. Mangels techni- 
scher Informationen war es nicht einfach 
herauszufinden, ob sie überhaupt und, 
wenn ja, wie möglich ist, doch zeigte sich 
im nachhinein, daß Double Lores nicht nur 
verblüffend einfach ist, sondern auch in 
einem reinen Applesoft-Programm be- 
nutzt werden kann, da hier keine Ge- 
schwindigkeitsprobleme auftreten. (Um- 
gekehrt muß die Double Hires in Assem- 
bler geschrieben werden, da sonst die 
HPLOT-Funktion viel zu langsam ist.) 


Ulrich Stiehl 


32 


Wie man die Grafik 
verdoppelt 
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1. Normale Lores-Grafik 


Bevor wir auf die Double Lores eingehen, 
seien die normalen Lores-Grafik-Befehle 
kurz wiederholt. Der Lores-Grafikbild- 
schirm ist speichermäßig mit dem 40-Zei- 
chen-Textbildschirm identisch. Während 
der 40-Zeichen-Textbildschirm jedoch 24 
Zeilen zu je 40 Zeichen umfaßt, kann bei 
dem Lores-Grafikbildschirm genau die 
doppelte Menge an Grafik-Kästchen ge- 
plottet werden. Dies rührt daher, daß in 
jeder Bildschirmspeicherstelle anstelle ei/- 
nes Buchstabens je zwei Kästchen unter- 
gebracht werden. Der Bildschirm nimmt 
den Speicherbereich $0400-$07FF ein 
($0400 = dezimal 1024). Jedes Bytes die- 
ses Bereichs — mit Ausnahme sog. ver- 
steckter Bildschirmspeicherstellen — kann 
mithin zwei Kästchen aufnehmen. Es gilt 
‚also: 


Textbildschirm: 24 Zeilen zu je 40 Zeichen 
Loresbildschirm: 48 Zeilen zu je 40 Käst- 
chen 

Geteilter Loresbildschirm: 40 Zeilen zu je 
40 Kästchen plus 4 Textzeilen am unteren 
Bildschirmrand. 


Experiment 1 


Zu Testzwecken schalten wir mit dem Be- 
fehl 

GR 

auf Lores-Grafik um und gehen dann mit 
CALL -151 

in den Monitor. Nunmehr geben wir 
400:0F 

ein und sehen, daß ganz links oben (= 
Zeile 0, Spalte 0) ein Kästchen geplottet 
wurde. Geben wir jetzt 

400:F0 

ein, wird ein Kästchen in derselben Spalte, 
aber statt in der ersten in der zweiten Zeile 
geplottet (= Zeile 1, Spalte 0). Geben wir 
abschließend 

400: FF 

ein, dann wird sowohl das obere wie das 
untere Kästchen sichtbar. $FF ist 1 Byte 
und besteht aus 2 Halbbytes $F und $F. 
Da jedes Halbbyte einen Wert von $0-$F 
oder dezimal O bis 15 einnehmen kann, 
gibt es theoretisch 16 Farben von O (= 
schwarz) bis 15 (= weiß), die allerdings 
auf einem grünen Monitor nur als unter- 
schiedliche Weiß-Grün-Abstufungen sicht- 
bar werden. Wer über einen Farbmonitor 
verfügt, kann mit dem Befehl 

COLOR =F 

wobei F als Variablenwert im Bereich 0-15 
liegt, die gewünschte Farbe definieren, die 
dann für alle nachfolgend geplotteten 
Kästchen gilt. 


Lores-Befehle 


Soviel zur Theorie des Lores-Bildschirm- 
speichers. Um die Plot-Befehle zu verste- 
hen, arbeite man am besten mit einem 
Koordinatensystem in der Art des abgebil- 
deten Diagramms 1. In Abweichung vom 
„normalen“ Koordinatensystem ist der 
Origo = Ursprung links oben statt links 
unten. Die X-Achse oder Abszisse kann 
Werte im Bereich 0-39 und die Y-Achse 
oder Ordinate Werte im Bereich 0-39 (bei 
geteiltem Bildschirm) oder 0-47 (bei vol- 
lem Bildschirm) einnehmen. Eine waag- 
rechte Linie von X1 bis X2 heißt Zeile, und 
eine senkrechte Linie von Y1 bis Y2 heißt 
Spalte. 
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Diagramm 1 


GR 


schaltet auf Lores-Grafik mit geteiltem 
Bildschirm und Farbe = 0 = schwarz um. 
Deshalb muß man danach mit 


COLOR = FF, z.B. COLOR = 15 
die gewünschte Farbe festlegen. 


POKE -16302, 0 


schaltet vom geteilten zum vollen Bild- 
schirm um. Danach kann man bei Bedarf 
mit 

CALL -1998 


die unteren Zeilen des Lores-Bildschirms 
löschen ($F832 = -1998 = CLRSCHR). 


TEXT 
hebt den Grafik-Modus wieder auf. 


PLOT X, Y, z.B. PLOT 39, 39 


plottet ein Kästchen im Schnittpunkt von 
horizontaler X- und senkrechter Y-Achse. 
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Qualitäts- 
Disketten 1.Wahl 


BASF-Disketten softsektoriert in Pappkarton 
3,25" -Disketten alle ohne Aufpreis mit Verstärkungsring. 





Type Beschreibung  105tk 100 Stk 
IXV ..... 48 TPI, I-seitig, einfache Dichte ...... 47,90 469,00 
IDV ...... 48 TPI, I-seitig, doppelte Dichte ...... 49,50 484,50 
1/96V.. 96 TPI, I-seitig, doppelte Dichte ...... 68,50 667,00 
2/96V.. 96 TPI, 2-seitig, doppelte Dichte ...... 82,50 799,50 
Aufpreis für IOer-Pack in Hart-PVC-Klappbox .......... je 5,00 


3M/Scotch Sicherheits-Disketten 
3,25"-Disketten mit Verstärkungsring; softsektoriert. 
744-0 .. 48 TPI, I-seitig, doppelte Dichte ...... 59,00 579,00 
745-0 .. 48 TPI, 2-seitig, doppelte Dichte ..... 92,50 887,00 
746-0 .. 96 TPI, 1-seitig, doppelte Dichte ...... 82,50 775,00 
747-0 .. 96 TPI, 2-seitig, doppelte Dichte ..... 98,00 922,00 
Wichtig für die sichere Funktion Ihrer Disketten-Laufwerke 
7440 .... Kopf-Reinigungsset für 5,25°-Laufwerke ...... 49,50 


Lg) 3,5" - Micro-Disketten 
|| für LISA und MACINTOSH NEU 


3,5"-Disketten I-seitig, doppelte Dichte im Ser-Pack 74,50 


Plastikbox für 5,25” - Disketten 


Formschöne Klappbox aus Hart-PVC für ca. 10 Disketten in 
den Farben grün, orange, schwarz, hellgrau, elfenbein oder 
anthrazit. Bitte die gewünschte Farbe angeben. Mischbar. 
SUR. 6.95 10 Stk ..... 39.50 100 Stk ..... 499.50 


0,29 -Diskettenbox Sehr preiswert! 
Repräsentative Disketten-Box aus deutscher Fertigung in den 
Abmessungen (T x Bx H) 306x 174x144 mm ohne Schloß mit 
topas farbenem Deckel für ca. 80 Disketten und 4 beschrift- 
baren Stützplatten. I Stk ... 27.50 ab 10 Stk ... 24.75 


ABA - Diskettentröge 


Kompakter Trog mit rauchfarbenem Deckel und Schloß. 
Das Unterteil ist platzsparend im Deckel abstellbar. 
Je nach Größe incl. 4 bzw. 9 beschriftbaren Stützplatten. 


2.25"-Mini-Disketten Abm: (TxBxH) 1 Stk ab10Stk 
M3S ... Abm.: 210x100x 175mm für 40 Disk. .... 47,50 43,90 
M85 ... Abm.: 310x100x 175mm für 90 Disk. .... 69,50 65,40 
8 -Standard-Disketten 1 5tkab10Stk 


F40 ... Abm.: 210x180x 175mm für 40 Disk. .... 69,50 65,40 
F90 ... Abm.: 350x 180x 175mm für 90 Disk. .... 89,50 85,90 


| Hd | Datenkassetten 


[X J) Universal = 1.Wahl 
Geeignet für alle gängigen Home - Computer 
Bandmaterial: Eisenoxid Bandmaterial: Chromdioxid 
Best.-Nr 10 St. 50 St. 100 St. Best.-Nr 10 St. 50 St. 100 St. 
CIO-FE .15,95 74,80 142,50 CI0-CR.17,95 85,00 162,50 
C20-FE .16,95 79,50 152,50 C20-CR .19,50 92,00 175,50 
C30-FE .18,65 87,50 167,50 C30-CR .22,25 105,00 199,50 
Hochwertiges Band aus deutscher Fertigung. Jede CC in einer 
aufklappbaren Schutzbox mit je 2 Blanco-Aufkleber je Box. 


Apple - Zubehör 
HE Er TE) | 80 Zeichen/64kB-RAM 

u 

nn | für APPLE /se 290, - 
Z80B/64kB-Karte (CP/M3.0,CBASIC,6SX80).. 1195,00 
Original ALS incl. sämtlicher Software. 
CP/M-PLUS-Manuals (CP/M3.0).................... 75,00 
Kompletter Satz bestehend aus: User's Guide, SID, System 
Guide, Programmer's Utilities- und Programmer’s Guide. 
ITOH/EPSON-Vollgrafikinterface m.Kabe! ...... 230,00 
Serielles Interface für APPLE Imagewriter 235,00 
RS-232C - Karte (Serielle Schnittstelle) ............. 175,00 
Z-80 Karte (ohne Software) Importkarte ............... 149,00 


Z-80 Karte (ohne Software) deutsche Herstellung 230,00 
Disk-Controller (ohne Software) 4 Betriebsarten 195,00 


ı DISTAR-Laufwerk 
" voll APPLE kompatibel 
nalbspurfähig, O-Erkennung, 40 Sourefi, 143 kB. 
Einzeln getestet für DOS, ProD0S, CP/M und PASCAL. 


Original APPLE PASCAL-ManualS ................. 75,00 
(Satz=Language- und Operating System Reference Manual) 








are Hirn 
SOFTWARE/HARDWARE - Gelegenheiten 
AIM/KIM/SYM/SUPERBOARD/NASCOM/SORCERER/ APPLE u.a. 
Aktuelle Preisliste gegen Freiumschlag anfordern. 
sofort ab Lager lieferbar: 
Macintosh, Apple Ile /llIc 
Unverbindliche Vorführung und Beratung. 


6900 Heidelberg I Breslauerstr.29 Tel.06221/781500 
Geschäftszeiten: Mo. - Fr. 9-13 +14 - 18 53.9 -13 Uhr 
Versandanschrift: 6900 Heidelberg I Dammweg ? 
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HLIN X1,X2 AT Y, z.B. HLIN 0, 39 AT 10 


plottet einen Balken (= Kästchen-Zeile) 
vom linken X1-Wert bis zum rechten X2- 
Wert in der Zeile Y. 


VLIN Y1, Y2 AT X, z.B. VLIN 0, 47 AT 20 


plottet einen Balken (= Kästchen-Spalte) 
vom oberen Y1-Wert bis zum unteren Y2- 
Wert in der Spalte X. 


F=SCRN (X, Y), z.B. F = SCRN (10, 20) 


ermittelt die Farbe oder Farbnummer (O- 
15) im Schnittpunkt von X und Y. 


2. 80-Zeichen-Textbildschirm 


Wie ist nunmehr doppelte Lores-Grafik 
möglich? Wir erinnern uns, daß der Lores- 
Grafikbildschirm speichermäßig mit dem 
40-Zeichen-Textbildschirm identisch ist. 
Schaltet man den Apple Ile mit 

PR#3 

auf 80-Zeichendarstellung, dann umfaßt 
der 80-Zeichen-Textbildschirm 24 Zeilen 
zu je 80 Zeichen. Der Bildschirmspeicher 
selbst ist dann in 2 Hälften unterteilt, nam- 
lich in 


a) den unteren Bereich $0400-$07FF auf 
dem 64K-Motherboard, und 

b) den oberen Bereich $0400-$07FF auf 
der 64K-Karte 


Die 80 Spalten oder Stellen einer 80 Zei- 
chen umfassenden Zeile werden von 0-79 
numeriert, wobei zwischen den ungeraden 
und geraden Spalten unterschieden wird: 


1,3, 5, ... 77, 79 ungerade = oben 
0, 2, 4, ... 76, 78 gerade = unten 


Damit gibt es „oben“ 40 ungerade und 
„unten“ 40 gerade Spalten. Die 80-Zei- 
chen-Bildschirmroutinen funktionieren im 
Prinzip wie die entsprechenden 40-Zei- 
chen-Routinen: 


a) Zunächst wird ermittelt, ob die Spalten- 
zahl im Bereich 0-79 eine gerade oder 
eine ungerade Zahl ist. 

b) Dann wird durch einen Softswitch ent- 
weder die „obere“ Hälfte für die ungerade 
oder die „untere“ Hälfte des Bildschirm- 
speichers für die gerade Spalte aktiviert. 
c) Nunmehr wird die Spaltenzahl durch 2 
geteilt und dann die der 40-Zeichen-Bild- 
schirmroutine entsprechende Funktion 
aufgerufen. 
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Um dies besser zu verstehen, beschrän- 
ken wir uns auf einen Abschnitt der ersten 
Zeile des 80-Zeichen-Textbildschirms 
(Diagramm 2). HTAB-Befehle arbeiten 
applesoftmäßig mit Spaltenzahlen im Be- 
reich 1-80 und monitormäßig mit Spalten- 
zahlen im Bereich 0-79. Die eigentliche 
Bildschirm-Poke-Routine arbeitet hinge- 
gen mit Spaltenzahlen im Bereich 0-39, 
die jedoch zweimal vorkommen, je nach- 
dem ob der Softswitch $C055 (= Page 2) 
für die obere oder der Softswitch $C0054 
(= Page 1) für die untere Hälfte aktiviert 
wurde. 









64K 
„unten’’ 
Motherboard 


Experiment 2 


Zu Testzwecken schalten wir mit 

PR#3 

die 80-Zeichenkarte ein und gehen dann 
mit 

CALL -151 

in den Monitor. Wenn wir nun 

C055:0 N 400:C1 

eingeben, erscheint ein „A“ (= Hex-Code 
$C1) in VTAB 1, HTAB 1. Dieses „A“ ist 
intern in der Spalte O der oberen Bild- 
schirmhälfte abgelegt. Gibt man nun 
C054:0 N 400:C2 

ein, dann erscheint rechts neben dem „A“ 
ein „B“ (= Hex-Code $C2), das somit die 
Position VTAB 1, HTAB 2 einnimmt und in 
der Spalte O der unteren Bildschirmhälfte 
liegt. 


3. Doppelte Lores-Grafik 


Mit dem Wissen über die einfache Lores- 
Grafik sowie der groben Kenntnis der 
Speicherorganisation der 80-Zeichenkarte 





können wir nunmehr die doppelte Lores- 
Grafik in den Griff bekommen. 


Experiment 3 


Zu Testzwecken schalten wir mit 

PR#3 

die 80-Zeichenkarte ein und dann mit 

GR 

auf Lores-Modus um. Nun gehen wir er- 
neut mit 

CALL -151 

in den Monitor und geben 

CO5E:0 


Diagramm 2 


a „oben’’, $C055 
3 „unten’’ , $C054 





ein. Dieser Softswitch, der eigentlich den 
Annunciator 3 betrifft, aktiviert die doppel- 
te Lores-Grafik. Wir werden jetzt lauter 
gesperrte Lores-Kästchen sehen, ge- 
sperrt deshalb, weil in jeder Zeile nur je- 
des zweite Kästchen geplottet ist. Diese 
Kästchen rühren daher, daß nach PR#3 
der Text-Bildschirmspeicher gelöscht, d.h. 
mit $AO = Spaces Leertasten gefüllt 
wurde. Nach GR wurde die obere Hälfte 
des Bildschirmspeichers nicht gelöscht, 
d.h. mit $00 gefüllt, weil die Lores-Moni- 
tor-Routinen nichts von der Double Lores 
wissen. Folglich werden die Spaces jetzt 
als Kästchen in der oberen Hälfte interpre- 
tiert. Wir entfernen diese momentan stö- 
renden Kästchen-Muster mit 


C055:0 N F832G 
und geben danach ggf. noch 
C054:0 


ein, damit sich auch die unteren 4 Textzei- 
len des gemischen Lores-Text-Bild- 
schirms normalisieren. Wir werfen nun ei- 








nen kurzen Blick auf Diagramm 3. In der 
linken unteren Ecke dieses Schaubildes 
sehen wir ein Low-High-Nibble-Muster für 
die Speicherstelle $0400, das wir wie folgt 
verdeutlichen können: 


LILr= L links + rechts 
HIHr = H links + rechts 





Stellen wir uns vor, daß die 2 oberen L’s 
und die 2 unteren H’s zusammen 4 Dou- 
ble-Lores-Kästchen darstellen, wobei L für 
Low Nibble und H für High Nibble steht. 
Bei der einfachen Lores-Grafik enthielt 
beim Experiment 1 die Speicherstelle 
$0400 1 Byte oder 2 Halbbytes = Nibbles, 
die zwei aufeinandergesetzte Lores-Käst- 
chen in der Form 

E 

H 

bildeten. Bei der doppelten Lores-Grafik 
existiert jedoch die Speicherstelle $0400 
physisch zweimal, nämlich „unten“ (Page 
1) und „oben“ (Page 2). Infolgedessen 
muß man nunmehr zwischen linken und 
rechten Low-High-Nibbles differenzieren. 
Dies läßt sich beweisen, indem wir folgen- 
de 4 Zeilen eingeben: 

C055:0 N 400:0F 

plottet das LI-Kästchen (links oben). 
C055:0 N 400:F0 

plottet das HI-Kästchen (links unten). 
C054:0 N 400:0F 

plottet das Lr-Kästchen (rechts oben). 
C054:0 N 400:F0O 

plottet das Hr-Kästchen (rechts unten). 


Bei der Double Lores gibt es mithin 80 
statt 40 Kästchen pro Zeile. Da indessen 
weder im Applesoft-Interpreter noch im 
Monitor spezielle Double-Lores-Routinen 
enthalten sind, muß das Aktivieren der 
oberen respektive unteren Bildschirmhälf- 
te durch Softswitch-Befehle des Apple- 
soft- bzw. Assembler-Programms vorge- 
nommen werden. Die Assembler-Befehle 


LDA $C050 (Grafik) 
LDA $C056 (Lores) 


LLLL—uunn u nnnnnnnuuuuuun Eu 


LDA $C052 (No Mix, Full Screen) 
STA $C001 (80-Store) 

STA $CO00D (80-Column) 

LDA $CO5E (Double on) 


schalten auf den Double-Lores-Modus 
um. Danach kann man nach Belieben mit 





Diagramm 3 


oben) 
unten) 


LDA $C055 (Page 2 
LDA $C054 (Page 1 


zwischen den zwei Bildschirmhälften 
$0400-$07FF umschalten. Der aufmerksa- 
me Leser wird jetzt sicher einwenden, daß 
in den Apple-Handbüchern die Page 1 als 
der Bereich $0400-$07FF sowie die Page 
2 als der Bereich $0800-$0BFF beschrie- 


. ben wird. Dies trifft auch zu und ist weiter- 


hin gültig für die einfache Lores-Grafik. Bei 
der doppelten Lores-Grafik erhalten die 
Softswitches $C055 und $C054 jedoch 
vorübergehend die Funktion des Um- 
schaltens zwischen unterem und oberem 
$0400-$07FF-Bereich, wobei $0800- 
$0BFF unberührt bleibt. Dies setzt jedoch 
voraus, das vorher das ganze Sortiment 
der obigen Softswitches, insbesondere 
$C001, $COOD und $CO5E geschaltet 
worden sind. Man beachte im übrigen den 
Unterschied zwischen LDA (= PEEK) und 
STA (= POKE), der unbedingt eingehalten 
werden sollte. 


Um die doppelte Lores-Grafik abzuschal- 
ten, sind folgende Softswitches erforder- 
lich: 


LDA $C054 (Page 1) 
LDA $0051 (Text) 
LDA $C05F (Double off) 


STA $C000 (40-Store) 
STA $C00C (40-Column) 


die letzten beiden Softswitches dürfen 
nicht aktiviert werden, wenn vor dem Ein- 
schalten von Double Lores die 80-Zei- 
chenkarte bereits eingeschaltet war, da 
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kommunizieren! Mit dem Akustikkoppler AK300. 
Daten, Texte und Programme -per Telefon! VonDatenbanken, 
Großrechnern und Mailboxen. Zwischen Filialen, Außendienst 
und Zentrale, den Mitgliedern eines Clubs oder ganz privat ... 








Akustikkoppler AK 300 948,00 
Technische Daten: 300 baud, Vollduplex, Originate und 
Answer, Batterie- u. Netzzbetrieb (Option), Variable Gummi- 
muffen für alle Hörer, FTZ-Nr. 18.13.1897.00., von der 
Post zugelassen. Gebühren- und anmeldefreil 

Zum Anschluß an den Akustikkoppler benötigen Sie die Super 
Serielle Interface Karte . Best.-Nr. A2B0044 ... 396,00 


Access// Terminal Emulation Sottware 229,00 
Access// ist das neue Terminal Emulation Programm von 
APPLE Computer für die Apple//-Familie. 

Sie verwandeln Ihren Apple// in ein Terminal und können somit Daten von einem 
Host-Rechner oder Elektronik -Mail-System empfangen und versenden. Access// 
bietet weiterhin die Möglichkeit des Abspeicherns der zu empfangenden Infor- 
mationen auf einer Diskette oder das Versenden von Dateien, die auf einer Diskette 
gespeichert sind. Access// basiert auf dem Betriebssystem ProDOS. (engl. Version) 


j ane... das integrierte Softwarepaket 995,00 


jane ist ein integriertes Sofwarepaket (Kalkulations- Text- 
verarbeitungs-und Dateiverwaltungsprogramm) mit der Maus. 
Alle Tastaturkommandos wurden durch einfache, leicht zu 
verstehende Bilder ersetzt, über die man dem Computer sagt, 
was er tun soll. Die integrierte Hilfe-Funktion von jane er- 
läutert alle Steuersymbole des Systems. Damit kann der An- 
fänger das Programm bedienen, ohne umfangreiche Hand- 
bücher zu lesen. (ohne Maus bitte separat bestellen.) 
Apple//e-Maus mit Mouse-Paint ................. 425,00 


Apple//c-Maus mit Mouse-Paint ................. 285,00 


AppleWorks Integriertes Sofwarepakeı 699,00 


AppleWorks (AW) kombiniert die Textverarbeitung, eine 
Datenbank und ein Rechenblatt in einem integrierten Paket. 
AppleWorks ist anwenderfreundlich gestaltet. Ein "Schreib- 
tischmanager” koordiniert die einzelnen Funktionen. Man 
kann gleichzeitig in verschiedenen Dokumenten arbeiten und 
in sekundenschnelle Informationen aus einem Dokument aus- 
schneiden und in ein anderes einsetzen. 

(Die deutsche Version ist ca. Anfang Oktober verfügbar.) 


Deutsche Programme 

PIONIERE IE „encssnernnss nenne 98,00 
Zeilenorientierter Editor für den APPLESOFT-Programmierer unter ProDOS. Mit der 
Diskette wird eine ausführliche deutsche Bedienungsanleitung mitgeliefert. 
FRE ee 98,00 
Bildschirm Masken Editor unter DOS 3.3 und ProDOS. Einbindbar in Applesoft- (auch 
kompillierte)und Assemblerprogramme. Diskette mit deutscher Bedienungsanleitung. 
FERR E eiseieeensunsohee a 98,00 
Memory Management Utilities für den Apple //e mit ext. 80 /Z-Karte. Über 25 
Programme erschliessen neue Anwendungsmöglichkeiten. 

SUTEDEWERBE 2... keinen 48,00 
Programm zur Herstellungvon Sicherungskopien. Dieses Programm gestaltet das 
softwaremäßige Unterbrechen, Speichern, Laden und Neustarten von 

Programmen. Für Apple//e mit 64kB-Erweiterung incl. dt. Bedienungsanleitung. 
Für obige Programme steht eine ausführliche Beschreibung 
zur Verfügung. Bitte mit DINAS-Rückumschlag anfordern. 


A.C.E. Applesoft Command Editor 149,00 
ermöglicht einfäches Editieren einer BASIC-Zeile und bietet eine Menge Utilities: 
ermittelt ob eine Variableexistiert, Auto Line Numbering, Monitor Kommandos 
können direkt von BASIC aufgerufen werden und Keyboard Macros können definiert 
werden u.a.m. 


APPLESOFT Tutorial Manual (A//e) ................... 37,00 


APPLESOFT Reference Manual Vol.1&2 (A//e). 69,50 
APPLE//e Reference Manual ............uuuueeanneenennnnnn 62,75 


PASCAL Operating System Reference Manual .. 45,00 
Satz=Language- und Operating Sys.Ref.Manual. 75,00 


Diese neue Serie für Softwareentwickler (=Workbench) 
werden als Einzelblattsammlung im Format DIN A 5 geliefert 
Der passende Ordner bietet Platz für bis zu 3 Handbücher. 


DOS Programmers Toolkit (incl. Diskette) ..... 250,00 
Enthält: 6502 Assembler Toolkit mit vielen Hilfsprogrammen wie EDASM (Editor und 
Assembler), BUG BYTER (Programm zum Austesten von Assernb ), 
RLOAD (Assemblerprogramme in Verbindung mit BASIC-Programmen). 

enthält eine Sammlung von Hilfsroutinen für 
alledie in APPLESOFT programmieren. 
ProDOS Technical Reference Manual (incl.Disk) 85,00 
Enthält ProDOS, das neue Betriebssystem von APPLE, sowie den EXERCISER (Inter- 
aktives Programm zum Austestenvon ProDOS durch Aufrufe von der Tastatur her). 
Das ProDOS Techn. Ref. Manual benutzt man am effektivsten in Verbindung mit dem.. 
ProDOS Assembler Tools ( incl. Diskette) ...... 123,00 
Enthält allesum effektiv unter ProDOS in Assembler zu programmieren. 
Beschreibung und Programme wie 6502 Assembler Tool Kit unter DOS 3.3. 
APPLE WORKBENCH Ordner (für ca. 3 Manuals) . 32,00 


Für 3-fach Lochung nach amerikanischer Norm. 


Ladenverkauf, Vorführung und fachgerechte Beratung 
6900 Heidelberg I Breslauerstr. 29 Te1.06221/781500 


Geschäftszeiten: Mo. - Fr. 9-13 +14 - 18 Sa. 9 -13 Uhr 
Versandanschrift: 6900 Heidelberg 1 Dammweg 2 
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sonst die ROM-Routinen der 80-Zeichen- 
karte „durchdrehen“. 


Wenn Sie einen Apple Ile mit 80-Zeichen- 
karte besitzen und bei den obigen Experi- 
menten keine Double Lores sahen, kann 
dies folgende hardware-technische Grün- 
de haben: 


— Sie besitzen keinen Apple Ile mit Platine 
Version B. Dann ist weder doppelte Lores- 
noch doppelte Hires-Grafik möglich. Aller- 
dings sollen angeblich in Westdeutschland 
nur B-Version-Apples ausgeliefert worden 
sein. 

— Sie haben die Brücke (Jumper), die mit 
der 80-Zeichenkarte mitgeliefert wurde, 
nicht auf die entsprechenden Pins ge- 
steckt (siehe Apple-Ergänzungsblatt zur 
Bedienungsanleitung). Bei neueren 80- 
Zeichenkarten soll dies jedoch angeblich 
nicht mehr erforderlich sein. 

— Sie haben eine Nachbau-80-Zeichen- 
karte, die nicht über die entsprechenden 
technischen Möglichkeiten verfügt. 


4. Hinweise zu den Programmen 
1. Double-Lores-Softswitch-Demo 


Dieses Demo veranschaulicht, welche 
Softswitches in Applesoft aktiviert und 
desaktiviert werden müssen, um Double 
Lores ein- und abschalten zu können. Es 
empfiehlt sich, die 80-Zeichenkarte vor 
Double Lores mit 

PRINT CHR$ (21) 

oder mit 

ESC Ctrl-Q 

abzustellen, weil man dann eine bessere 
Kontrolle über die Softswitches hat, denn 
die ROM-Routinen betätigen einen Teil 
der Softswitches, die für Double Lores 
benötigt werden, so daß Speicherkonflikte 
auftreten können. Beispielsweise könnte 
aus Versehen der Bereich $0800-$0BFF 
als Textspeicher aktiviert werden, womit 
das dort befindliche Applesoft-Programm 
zerstört würde. 


2. Double-Lores-Applesoft-Demo 


Dieses leichtverständliche Demo zeichnet 
zunächst vertikale Linien in wechselnden 
Farben (Programmzeilen 37 — 55) und 
plottet dann eine schräge Linie (Pro- 
grammzeilen 61 — 82). Man beachte, daß 
man bei schrägen sowie auch bei horizon- 
talen Linien permanent zwischen Page 1 
und Page 2 alternieren muß, da die ROM- 
Plot-Routinen bekanntlich nicht auf die 
obere Bildschirmhälfte umschalten 
können. 
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3. DOUBLE.LORES (Assembler) 


Dieses Assembler-Demo dient zur Veran- 
schaulichung der erforderlichen Softswit- 
ches sowie zur Erläuterung der Lores-Mo- 
nitor-Routinen. Es zeichnet übrigens eine 
Art „Fußballtor“. 


4. AMPER.DOUBLE.LORES (Applesoft 
und Assembler) 


Wir erinnern uns, daß eine Double-Lores- 
Zeile zwar 80 Kästchen — numeriert von O- 
79 - umfaßt, jedoch wegen des in obere 
und untere Hälfte aufgeteilten Bildschirms 
nach Aktivierung der jeweiligen Page- 
Schalter immer nur Kästchen im Bereich 
0-39 geplottet werden können. Dies ist 
hinderlich für die Programmierung, insbe- 
sondere wenn schräge und horizontale Li- 
nien sowie Kurven geplottet werden kön- 
nen. Besser wäre es, wenn man einen 
Plot-Befehl in der Art 

PLOTA,Y 

geben könnte, wobei X Werte im Bereich 
0-79 annehmen würde. Dies ist jedoch 
wegen der unzureichenden ROM-Routi- 
nen nicht direkt möglich. Deshalb enthält 
die Ampersand-Utility AMPER.DOUBLE- 
‚LORES eine Konvertierungsroutine, die 
X-Werte bis 79 zuläßt. Im einzelnen wur- 
den folgende Befehle implementiert, die 
nach BRUN AMPER.DOUBLE.LORES 
über die Tastatur oder aus einem Apple- 
soft-Programm heraus aufgerufen werden 
können: 


& GR 

schaltet auf Double-Lores-Modus um. Da- 
mit entfällt die lästige „Softswitcherei“. 

& TEXT 

schaltet wieder auf 40-Zeichen-Textmo- 
dus zurück. Vor Anwendung der Utility 
AMPER.DOUBLE.LORES sollte man da- 
her die 80-Zeichenkarte bereits abgestellt 
haben. 

& PLOT X,Y 

plottet ein Double-Lores-Kästchen in der 
zuvor durch COLOR = F gewählten Farbe, 
wobei X den Bereich 0-79 und Y den 
Bereich 0-47 umfassen kann. Werte au- 
Berhalb dieses Bereichs werden mit einem 
Piepston „quittiert“. 


An dieser Stelle soll nicht näher auf den 
Ampersand-Befehl (&) eingegangen wer- 
den, doch soll zumindest der Amper-Plot 
kurz erläutert werden: 

Der Textpointer ist der Zeiger, der auf die 
jeweils gerade zu bearbeitende Stelle des 
Applesoft-Programms zeigt. 


1 & PLOTAY 


würde im Applesoft-Programmspeicher 
hexadezimal folgendermaßen aussehen: 


1. $AF = Token für & 
2.$8D = Token für PLOT 


3.958 =X 
4.$92C0=, 
5.959 = Y 


a) Wenn der Applesoft-Interpreter auf das 
Token für & stößt, lädt er das nachfolgen- 
de Byte, also in unserem Fall $8D, in den 
Akkumulator und springt nach $03F5, wo 
seinerseits durch AMPER.DOUBLE.LO- 
RES ein Sprung nach $0310 (siehe Zeile 
62 des Assembler-Listings) installiert 
wurde. 

b) Zeilen 62-68 prüfen, welches Token 
vorliegt. Im Falle von PLOT erfolgt dann 
ein Sprung zur Zeile 105 ($034F). 

c) Der Textpointer wird nun in Zeile 105 
durch die Routine CHRGET um 1 erhöht, 
womit gleichzeitig der Akkumulator mit 
dem Byte $58 für X geladen wird. 

d) Dies ist die Voraussetzung für die Routi- 
ne GETBYT, welche den Wert der Varia- 
blen X ermittelt und dann im X-Register 
des 6502-Prozessors hinterläßt. Dieser 
Wert wird zunächst zwischengespeichert 
(Zeile 107). 

e) Danach wird in Zeile 108 durch die 
Routine CHKCOM (Check Comma) das 
Komma $2C übersprungen, wonach 
CHKCOM automatisch das nachfolgende 
Byte, also $59 für Y in den Akkumulator 
überträgt. 

f) Nunmehr wird durch erneutes JSR GET- 
BYT in Zeile 109 der Y-Wert ermittelt, der 
ebenfalls zunächst zwischengespeichert 
wird. 

g) Jetzt wird es interessant (Zeile 114- 
119). Der Akkumulator wird mit dem X- 
Wert, der im Bereich 0-79 liegen darf, 
geladen und durch den Befehl LSR (Logi- 
cal Shift Right) durch 2 geteilt, wodurch 
gleichzeitig Bit O0 in das Übertragsflag 
„Carry“ übertragen wird. Nehmen wir an, 
der X-Wert sei dezimal 79 = hexadezimal 
$4F = binär %01001111, dann gilt: 


76543210 = Bit-Nummern 0-7 

01001111 = 79 vor LSR 

00100111 = 39 nach LSR (Carry = 1) 
Wenn Bit O vor LSR eine 1 enthielt, dann 
ist der X-Wert ungerade (BCS), andern- 
falls gerade (BCC). Wenn er ungerade ist, 
wird Page 1 aktiviert, andernfalls Page 2. 
Danach — d.h. nach der Teilung durch 2 
durch LSR — kann die normale Monitor- 
PLOT-Routine $F800 (Zeile 133) aufgeru- 
fen werden. 





h) Mit der Routine DATA (Zeile 141), die 
den Textpointer zum nächsten Statement 
vorrückt, und der Aktivierung von Page 1 
(sicher ist sicher!) kehrt die Ampersand- 
Utility in das Applesoft-Programm zurück. 


Das Applesoft-Demo AMPER.DOUBLE- 
‚LORES.DEMO zeichnet übrigens eine 
Kugel, die durch Änderung der Variablen R 
für Radius sowie Fi und F2 modifiziert 
werden kann. 


5. Schlußbemerkung 


Double Lores ist eine nützliche Erweite- 
rung der Grafikfähigkeiten des Apple Ile/ 


IIc und empfiehlt sich stets dann, wenn die 
einfache Lores-Grafik zu grob und die ein- 
fache Hires-Grafik zu fein sein sollte, da 
die Double Lores ein Mittelding zwischen 
beiden normalen Grafik-Modi einnimmt. 
Mit der Utility AMPER.DOUBLE.LORES 
sind bei weitem noch nicht alle Möglich- 
keiten erschöpft. Beispielsweise fehlen 
noch folgende Befehle 

& SCRNX,Y 

& HLIN X1, X2 ATY 

& VLIN Y1, Y2 ATX 

& PLOT X1, Y1 TOX2, Y2 

Vielleicht entwickelt ein Leser dieser Zeit- 
schrift diese zusätzlichen Ampersand-Be- 
fehle. Im nächsten Heft von „Peeker“ wird 
dann über Double Hires berichtet. 


l ORG $300 

2 * 

3 * DOUBLE.LORES 

4 ae 

5 * von U.Stiehl 1984 

6 a nme 
7 * Waagrechte X-Achse 

8 * 0 (links) bis 39 (rechts) 

9 * 

10 * Senkrechte Y-Achse: 

41 * 0 (oben) bis 39 (unten) MIX 
12 * 0 (oben) bis 47 (unten) FULL 
13 0OoK— 7 
14 * H2=X2; V2=Y2 Linien-Endpunkte 
15 * 

16 H2 EQU $2C ;X2 

7 v2 EQU $2D 2 

18 *--—— 
19 * Mixed-Lores- und Text-Modus 

20 * 

21 SETGR EQU $FB40 ;GR-mixed 
22 * 

23 INIT EQU $FB39 ;Textmodus 
24 * 

25 PAGEIl EQU $C054 

26 PAGE2 EQU %$C055 

27T #--—— 


28 * SETCOL: Farbe festlegen 


29 * Color-Nr. 


30 * 
Sa SETCOL 
32 * 


(0-15) in A-Register 


EQU $F864 


33 * SCRN: Farbe eines Punktes finden 
54 * X-Abschnitt in Y-Register 
35 * Y-Abschnitt in A-Register 
36 * Danach Farbe in A-Register 


37 * 
38 SCRN 


EQU $F817 


I nn 


40 * CLRSCR: Zeilen 0-47 löschen 
4l * CLRTOP: Zeilen 0-39 löschen 


42 * 

43 CLRSCR EQU $F832 ;0-47 

44 CLRTOP EQU $F836 ‚0-39 

45 *--—-—-— 
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Elektronik - Fachliteratur - Personal-Computer 


Literatur für APPLE II, Ile, 
IIc und kompatible Geräte 


APPLESOFTBASIC 
Apple Il Anwenderhandbuch 


49,00 
von Lon Poole, 1982, 450 Seiten. te-wi Verlag 
Diese Buch erspart Ihnen zeitraubendes und nutzloses Suchen 
nach der wirklich verwendbaren Dokumentation für Ihren 
Apple. Neben der ausführlichen Auskunft über Peripherie, Zu- 
behör und Drucker wird gezeigt, wie man in BASIC und in 
Maschinensprache programmiert. 


BASIC-Wegweiser für den Apple Il 32,- 
von Ekkehard Kaier, 1984, 200 Seiten. Vieweg-Verlag 

Diese Buch weist Wege zum erfolgreichen Einsatz von 
Computern der Apple II-Familie mit Applesoft-BASIC. Mit 
über 80 Programmen, 7 Dateien, 24 PAPs und 84 Bildern. 


APPLE Il Leicht gemacht 28,00 
von J. Kascmer, 1984, 192 Seiten. SYBEX-Verlag 

Dieses Buch zeigt wie Sie Ihren APPLE Ile, Il+ oder IIc in 
wenigen Stunden voll einsetzen können. Sie lernen wie leicht 
es ist Ihr eigenes BASIC-Programm zu schreiben. 


BASIC Ubungen für den APPLE 38,00 
von J.-P. Lamoitier, 1983, 256 Seiten. SYBEX-Verlag 

Das Buch enthält eine Reihe von abgestuften Übungen mit zu- 
nehmendem Schwierigkeitsgrad. 50 werden Ihre Programmier 
fähigkeiten aufgebaut und an vielen Beispielen erprobt. 


APPLE Il BASIC Handbuch 32,00 
von D.Hergert, 1984, 304 Seiten. SYBEX-Verlag 

Ein handliches Nachschlagwerk für Ihren APPLE II, Ile und IIc 
Tips und Vorschläge machen das Programmieren einfacher u. 
effizienter. Das Buch für Anfänger und Fortgeschrittene. 


Spiele für den APPLE 38,00 
von M.J. Capella/M.D. Weinstock, 270 Seiten, 1984. M&T-Buchverlag 

Eine Sammlung von bewährten alten und raffinierten neuen 
Spielen für Ihren APPLE-Computer. 


Spielprogramme für den Applelle 32.- 
von H. Franklin/J. Koltnow/L. Finkel, 1984, Vieweg-Verlag 
Das Buch stellt Spiele vor und zeigt, wie man Spiele erfindet 


PASCAL 
Apple Il Pascal 


96,00 
von A.Lührmann/H. Peckham, 1982, te-wi Verlag 
Sie benötigen zu diesem Buch keine Vorkenntnisse, sondern 
lernen an Hand von Beispielen und Übungen, wie man selber 
PASCAL-Programme entwickelt und sie austestet. 


APPLE DOS 3.3 - Tips und Tricks 


28,00 
von U.Stiehl. 1984. 216 Seiten. Hüthig-Verlag 
Dies ist die erste deutschsprachige Darstellung des Betriebs 
systems DOS 3.3 für den APPLE 11/11 Plus/lle. 
Begleitdiskette zu APPLE DOS 3.3 .................... 28,00 


APPLE ProDOS für Aufsteiger Bd. 1 28,00 
von U.Stiehl. 1984, 203 Seiten, Hüthig-Verlag 

Nachfolgeband zu APPLE DOS 3.3 für das neue Betriebssys- 
tem ProDOS. Assembler Programmierer finden in diesem 
Band eine wertvolle Unterstützung durch interne ProDOS 
Systemadressen oder interessanten Programmen. 
Begleitdiskette zu APPLE ProDOS Band! ........... 28,00 


Assembler | 
APPLE Assembler - Tips und Tricks 34,00 


von U.Stiehl, 1984, 227 Seiten. Hüthig Verlag 

Das neue jetzt vorliegende Buch enthält alle Monitor und 
Applesoft Interpreter Routinen für All/Ile/lic (40 2./Z.) wie 
eine Einführung in die 6502 Assembler Programmierung. 
Begleitdiskette zu APPLE Assembler ................. 28,00 


Programmierung des 6502 44,00 


von Rodnay Zaks, 1984, 288 Seiten. SYBEX-Verlag 
Sehr gut verständliche Einführung in die Assembler-Progra- 
mmierung mit dem Mikroprozessor 6502. Bestens geeignet 
für Anfänger und Fortgeschrittene. 

38,00 


6502 Anwendungen 

von Rodnay Zaks, 1983, 288 Seiten. SYBEX-Verlag 

Das Eingabe/ Ausgabe-Buch für Ihren 6502 Mikroprozessor. 
Viele Anwendungsbeispiele helfen Ihnen, das Erlernte in die 
Praxis umzusetzen. 

Fortgeschrittene 


6502 Programmierung 42,00 
von Rodnay Zaks, 1984, 288 Seiten. SYBEX-Verlag 

Lernen Sie wie man schwierige Probleme mit dem 6502 löst. 
Ein muß für jeden fortgeschrittenen Apple-User. 


6502/65C02 Maschinensprache 49,00 


von C.Persson, 1983, 250 Seiten. VerlagHeinz Heise 

Diese Buch eines deutschen Autors ist eine intensive, praxis 
gerechte Einführung in die Programmierung des 6502. Als 
erstes Buch auf dem dt. Markt behandelt es auch den 65C02. 


APPLE Maschinensprache 49,00 
von D. Inman/K. Inman, 300 Seiten, 1984. te-wi Verlag 

Eine Schritt-für-Schritt-Einweisung in die professionellere 
Entwicklung von Maschinenprogrammen mit APPLE SYSTEM 
MONITOR und APPLE MINI-ASSEMBLER. 

Alle Bücher sofort ab Lager lieferbar. Bestellen Sie 
per NN oder besuchen Sie uns. Wir führen eine groBe 
Auswahl an aktuellen Büchern und Zeitschriften. 
6900 Heidelberg I Breslauerstr. 29 Tel.06221/781500 
Geschäftszeiten: Mo. - Fr. 9-13 +14 - 18 5a.9 -13 Uhr 
Versandanschrift: 6900 Heidelberg 1 Dammweg 2 
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0300: 
0303: 
0306: 
0309: 
030C: 
O30F: 


0312: 
0315: 
0318: 
O31B: 


O31E: 
0320: 


0323: 
0326: 
0328: 
O32A: 


032D: 
0330: 
0352: 
0354: 


0337: 
O33A: 
033C: 
O33E: 
0340: 
0342: 


0345: 
0348: 
O34A: 
034C: 
O34E: 
0350: 


0353: 
0356: 
0358: 
O35A: 
035C: 
0O35E: 


0361: 
0364: 
0366: 
0368: 
O36A: 
036C: 


AD 
AD 
AD 


8D 
AD 


AD 
20 
AD 
20 


A9 
20 


AD 
AO 
A9 
20 


AD 
AO 


20 


55 


2F 
00 


54 
14 
2F 
00 


co 


F8 


co 


F8 


co 


F8 


co 


F8 


co 


F8 


co 


F8 


131 
132 


PLOT: Punkt plotten 
X-Abschnitt in Y-Register 
Y-Abschnitt in A-Register 


“*%*x* x 


PLOT EQU $F800 


* HLINE: Horizontale Linie plotten 
* Xl-links in Y-Register 
* 
* 











X2-rechts in H2 
Y-Abschnitt in A-Register 


* VLINE: Vertikale Linie plotten 
* X-Abschnitt in Y-Register 

* Yl-oben in A-Register 

* Y2-unten in V2 


* 
VLINE EQU $F828 








“*x* x %* 


LDA $C050 
LDA $C056 
LDA $C052 
STA $cool 
STA $CO00D 
LDA $COo5E 


;GRAFIK 
; LORES 
;NOMIX 
;80STORE 
;80COL 
;80ANS3 


LDA PAGEL 
JSR CLRSCR 
LDA PAGE2 
JSR CLRSCR 


LDA #10 
JSR SETCOL 


Punkt in der Mitte der 
untersten Zeile plotten 


“x r* 


LDA PAGE2 
LDY #19 
LDA #47 ; 
JSR PLOT 


> 


LDA PAGEL 
LDY #20 ; 
LDA #47 ; 
JSR PLOT 


<> 


Waagrechte Linie am oberen 
Lores-Bildschirmrand 


“*RrK* Kr 


LDA PAGE2 

LDY #0 EL 
LDA #39 ‚X2 
STA H2 

LDA #0 x 
JSR HLINE 


LDA PAGEIl 

LDY #0 :&4 
LDA #39 ;X2 
STA H2 

LDA #1 * 
JSR HLINE 


Senkrechte Linie am rechten 
Lores-Bildschirmrand 


* %* 


LDA PAGE2 

LDY #38 ;X 
LDA #47 12 
STA V2 

LDA #2 rl 
JSR VLINE 

” 

LDA PAGEI 

LDY #39 x 
LDA #47 Et 
STA V2 

LDA #2 ;Yl 
JSR VLINE 


O36F: 
0372: 
0374: 
0376: 
0378: 
O37A: 


037D: 
0380: 
0382: 
0384: 
0386: 
0388: 


038B: 
038E: 
0391: 
0393: 
0396: 
0399: 
039C: 
O39F: 
03A2: 


165 bytes 


oo» I nur 





* Senkrechte Linie am linken 
* Lores-Bildschirmrand 
%* 

LDA PAGE2 

LDY #0 

LDA #47 

STA V2 

LDA #2 

JSR VLINE 


LDA PAGEL 
LDY #1 
LDA #47 
STA V2 
LDA #2 
JSR VLINE 


BIT $C010 
LDA $C000 
BPL KEY2 
BIT $C010 
PAGEL 
$c000 
STA $cooc 
$co5F 
INIT 


;STROBE 
;KEYBD 


;STROBE 


;40STORE 
;40COL 
;40ANS 


ORG $300 


AMPER . DOUBLE. LORES 


von U.Stiehl 1984 


Hex-Werte für Token 
* 
GRTOK EQU $88 
TEXTTOK EQU $89 
PLOTTOK EQU $8D 
* 
* Zwischenspeicher für X und Y 
* 
XACHSE EQU $00FE 
YACHSE EQU $OOFF 
* 
CLRSCR EQU $F832 
PLOT EQU $F800 
BELL EQU $FBDD 
* 


CHRGET erhöht Textpointer um 1. 


DATA erhöht Textpointer bis 
EQL oder ":". 


GETBYT lädt Zahl im Bereich 
0-255 von Textpointer-Stelle 
in X-Register. Vor JSR GETBYT 
muß A-Register Textpointer- 
Byte enthalten. 


CHKCOM prüft, ob Textpointer- 
Byte "," enthält. Wenn ja, 
wird Textpointer um 1 erhöht 
und A-Register mit nächsten 
Textpointer-Byte geladen. 


“*KRKKKKTKF TFT  TFKAI TFKI KK a <a 8 


* 

CHRGET EQU $00Bl 

AMPERVEK EQU $03F5 

DATA EQU $D995 

GETBYT EQU $ES6F8 

CHKCOM EQU $DEBE 

* 

PAGEl EQU $C054 

PAGE2 EQU $C055 

* 

* Ampersand-Vektor setzen 

* 

START LDA #$4C ;JMP 
STA AMPERVEK 
LDA #<AMPER 
STA AMPERVEK+1 
LDA #>AMPER 





F7 03 56 


057D: 20 DD 


0380: AD 54 
0383: AC 95 


134 bytes 


57 
58 
59 
60 
61 
62 
65 
64 
65 


STA 
RTS 


A-Register 


“*x*%* x 


> 
= 
"u 
Ef] 
I 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
JMP 


Auf Double. 





AMPERVEK+2 


enthält bereits Token 


nach & --> &GR, &TEXT, &PLOT 


#+GRTOK 
AMPGR 
#+TEXTTOK 
AMPTEXT 
#PLOTTOK 
AMPPLOT 
ERROR 


Lores umschalten 


* und Bildschirm löschen 


. 
AMPGR LDA 
LDA 
LDA 
STA 
STA 
LDA 
LDA 
JSR 
LDA 
JSR 
JMP 


Auf Text.Mo 


“*IKK KK KK 


AMPTEXT STA 
STA 
LDA 
LDA 
JMP 


& PLOT X, Y 


X-Achse in 
Y-Achse in 


PPLOT JSR 
JSR 
STX 
JSR 
JSR 
STX 


oder 


LDA 

LSR 

BCC 
PAGER1 LDY 

BCS 
PAGER2 LDY 
* 


$Cc050 ;GRAFIK 
$c056 ;LORES 
$c052 ;NOMIX 
$cool ;80STORE 
$cooD ;80COL 
$co5E ‚80ANZ3 
PAGEL 

CLRSCR 

PAGE2 

CLRSCR 

EXIT 


dus zurückschalten 


$co000 ;40STORE 
$cooc ;40COL 
$co5F ;40AN3 
$co51 <TERT 
EXIT 


Y-Register (0-79) 
A-Register (0-47) 


CHRGET 


GETBYT :X->X-Reg. 


XACHSE 
CHKCOM ;Komma 


GETBYT ;Y->X-Reg. 


YACHSE 
2? 
XACHSE 
PAGER2 
PAGEl 


PARAMS 
PAGE2 


* Wertebereich okay? 


* 

PARAMS TAY 
CPY 
BCS 


LDA 
CMP 
BCS 
%* 
* Plotten und 
* 
JSR 
JMP 
* 
* Unzulässige 
* 
ERROR JSR 
* 
EXIT LDA 
JMP 


;X->Y-Reg. 


+40 ‚>=39? 
ERROR 


YACHSE :Y->A-Reg. 


+48 ‚>=477 
ERROR 


zurück zu Applesoft 


PLOT 
EXIT 


Parameter 
BELL 


PAGEL 
DATA 





Double-Lores-Softswitch-Demo 


P= PEEK (49232): REM GR 
POKE 49153,0: REM 80-STORE 
POKE 49165,0: REM 80-COLUMN 
P= PEEK (49234): REM NO MIX 
PEEK (49246): REM DOUBLE ON 
PEEK (49237): CALL 63538: REM Clear Page2 
PEEK (49236): CALL 63538: REM Clear Pagel 
= PEEK (49237): POKE 1024,15: GET X$: REM Page2 
linker Punkt "oben" 
= PEEK (49236): POKE 1024,15: GET X$: REM Pagel 
rechter Punkt "unten" 
TEXT : PRINT CHR$ (4)"PR#3": PRINT CHR$ (4)"PR#3": REM 
Softswitches normal; 2 * PR#3 


Double-Lores-Applesoft-Demo 


10 PRINT "DOUBLE.LORES IN APPLESOFT" 
P= PEEK (49232): REM GR 
POKE 49153,0: REM 80STORE 
POKE 49165,0: REM 80COL 
= PEEK (49234): REM NOMIX 
PEEK (49246): REM AN3 
PEEK (49237): CALL 63538: REM CLRP2 
PEEK (49236): CALL 63538: REM CLRPI 
PEEK (49152): ON P < 128 GOTO 34:P = PEEK (49168): 
KEY 
FOR C = 15 TO 0 STEP - 1: COLOR= C 
FOR X = 0 TO 36 STEP 4 
= PEEK (49237): REM PAGE2 
VLIN 0,47 ATX 
P= PEEK (49236): REM PAGELl 
VLIN 0,47 ATX +1 
NEXT X,C 
COLOR= 10 
X=0:Y=0 
P= PEEK (49237): REM PAGE2 
PLOT X,Y 
Y=Y+l 
P= PEEK (49236): REM PAGEL 
PLOT X;Y 
x\=X+1:Y=-Y+tl 
IF Y < 48 GOTO 64 
P= PEEK (49152): ON P < 128 GOTO 85:P = PEEK (49168): 
REM KEY 
POKE 49152,0: REM 800FF 
POKE 49164,0: REM 40COL 
P= PEEK (49236): REM PAGELl 
TEXT 


Amper.Double.Lores.Demo 


PRINT CHR$ (21): PRINT CHR$ (4)"BRUN 
AMPER. DOUBLE. LORES" 

REM Amper.Double.Lores.Demo zeichnet eine Kugel 
TEXT : & GR 
XE = 79:YE = 47:A = XE / 2:B= YE / 2:Fl = 7:F2 = 23 
FOR C = 1 TO 15: COLOR= C:R=C+H+C 
FORX=A-RTOAHR: IF X < DO OR X > XE GOTO 60 
H=RxR- (X-A) * (X - A): IFH< = 0 GOTO 60 
Yl=B+t SQR (H) - FL:Y2=B- SQR (H) + Fl 

IF YA > O0 AND Y1 < = YE THEN & PLOT X,Yl 

IF Y2 > O0 AND Y2 < YE THEN & PLOT X,Y2 

NEXT X 

NEXT C 

GET X$ 

& TEXT : HOME 





grafik g4 








Mit Hilfe des Applesoft-Programms HI- 
RES und des Maschinen-Programms 
PRINTHIRES ist es möglich, die hoch- 
auflösende Grafik des Apple auf einem 
Epson Drucker, der für die Ausgabe 
der Grafik vorgesehen ist (MX-80, MX- 
82, MX-100 Typ 3 sowie RX-80 FX-80 
etc.), auszugeben. Durch leichte Modi- 
fikationen der Programme ist es auch 
möglich, sie an einen anderen Drucker 
oder ein anderes Interface anzupassen. 


Jürgen und Dieter Geiss 


40 


Hires-Grafik-Dump 


für 


Epsondrucker 














Nachdem Sie den Maschinenspracheteil 
des Programms in den Computer eingege- 
ben haben, speichern Sie ihn bitte unter 
dem Namen „PRINTHIRES“ mit einem 
BSAVE PRINTHIRES, A$1C00, L$0400. 
Danach geben Sie das Applesoft-Pro- 
gramm HIRES ein, und speichern Sie es 
dann unter dem Namen HIRES mit dem 
SAVE-Befehl ab. 


Beschreibung des Applesoft- 
Programms 


(Die halbfette Zahlen beziehen sich im 
nachfolgenden auf die Applesoft-Pro- 
grammzeilen) 


1000: ST ist die Startadresse für die Para- 
meter, die an das Maschinenprogramm 
übergeben werden. Die Startadresse wird 


auf 768 Dezimal = $0300 Hex gesetzt. 
1010: CO ist die Adresse für die Kontroll- 
zeichensequenz, um den Drucker auf ei- 
nen Grafikmodus zu schalten. 

1020: BY ist die Anzahl der Bytes/Zeilen, 
die der Drucker nun als Grafikzeichen in- 
terpretiert. 

1030: IM ist die Stärke (Impression), mit 
der gedruckt werden soll. Man unter- 
scheidet: 

a) Single Strike: Eine Grafikzeile wird ein- 
mal ausgedruckt. 

b) Double Strike: Eine Grafikzeile wird 
ausgedruckt, dann wird ein Wagenrücklauf 
und ein Zeilenvorschub um 1/216 Inch 
bewirkt und die Zeile nochmals ausge- 
druckt. 

c) Quadruple Strike: Eine Grafikzeile wird 
ausgedruckt, ein Wagenrücklauf ohne Zei- 
lenvorschub erwirkt, die Zeile wird noch- 








mals ausgedruckt. Dann wird wie beim 
Double Strike Modus ein Zeilenvorschub 
um 1/216 Inch bewirkt und die Zeile wie- 
der zweimal gedruckt. 


Anmerkung zu b) und c): Funktioniert nur 
bei Druckern der Marke Epson. Bei ande- 
ren Druckern müssen die Unterprogram- 
me Linesp und LS1 im Assemblerpro- 
gramm entsprechend modifiziert werden. 


1040: XO ist das Exclusive-Or-Byte. Die 
Grafikseite kann entweder positiv oder ne- 
gativ ausgedruckt werden ($00 oder $FF). 
a) positiv: Ein Punkt, der auf der Grafiksei- 
te gesetzt ist, wird auf dem Drucker aus- 
gegeben. 

b) negativ: Ein Punkt, der auf der Grafik- 
seite nicht gesetzt ist, wird auf dem Druk- 
ker ausgegeben. 


1050: DI ist die Richtung (Direction), in der 
gedruckt werden soll. Es gibt die Möglich- 
keiten horizontal oder vertikal. 


1060: FR gibt an, ob ein Rand (Frame) das 
Hi-Res-Bild einrahmen soll. Der Rand ist 
ein Bit breit. 


1070: PA ist die Grafikseite (Page), die 
ausgedruckt werden soll. 
1. Page = $2000-$3FFF 
2. Page = $4000-$5FFF 


1080: RF bestimmt den Wiederholungs- 
faktor (Repeat Factor). Ein (Teil-)Bild kann 
mehrere Male nebeneinander ausgedruckt 
werden. 


1090: RD ist die Wiederholungsdistanz 
(Repeat Distance) und gibt die Anzahl der 
Bits zwischen den wiederholten Bildern 
an. 

1100: LE ist der linke Rand (left) des Hi- 
res-Bildes. Die Werte in LE und LE + 1 
berechnen sich folgendermaßen: Das hö- 
herwertige Byte (LE + 1) gibt das horizon- 
tale Byte der Hires-Page an, das nieder- 
wertige Byte das Bit in diesem Byte. Ist der 
linke Rand also 10, so muß in die Spei- 
cherzelle LE + 1 eine 1, in LE eine 3 
gepokt werden (1 x 7 + 3, da sieben Bits 
pro Byte ohne das Farbenbit gezählt 
werden). 


1110: RI ist der rechte (right) Rand. Die 
Berechnung entspricht der des linken 
Randes. 

1120: TP ist der obere (top) Rand. Er kann 
Werte zwischen O und 191 annehmen. 


1130: BO ist der untere (bottom) Rand. 
Auch hier treten Werte zwischen O und 
191 auf. 

1140: XF ist der X-Faktor. Das Bild kann in 
X-Richtung (horizontal) gestreckt werden. 
Eine 1 entspricht der Originalgröße, bei 
einer 2 wird das Bild doppelt so groß in X- 
Richtung. Der Maximale Wert ist 31. 


1000: 


1C02: 
1005: 
1007: 
1C0OA: 


1COB: 
1COE: 
1010; 
1C12: 
1C15: 
1617: 
1619; 


1CIC: 
IOir: 
1621: 


1024: 
1027: 
1029: 


1LC2C: 
LCZE: 


1C31: 
1634: 


1637: 
1039: 


A9 


8D 
A9 


60 


AD 
DO 
A9 
8D 
DO 
A9 
8D 


AD 


DO 


AD 


ac 


A9 
20 


AC 
SC 


A9 
8D 


OB 


F6 
IC 
F7 


17 
D6 


16 
20 


01 
26 


05 


03 


03 


03 


05 


03 


IF 


03 


1D 


lE 


03 
05 


05 
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Grafik g.4 





ORG $1C00 


KRRHKFHKRRFRHRHKRERKHFRKHKRH KK FH FH FH FH HK EFF FF HF KH FE 
* PRINTHIRES * 
* FX-80, FX-100, RX-80, RX-100, MX-80, MX-82, MX-100 * 
KRKRKRKRRHERKREKRKHHK HH HH HH HH FH HH FH KH FH EI KK + 


Base EQU $I1C ;Adresse fuer Graphikzeile 
Frameadr EQU $IE ‚Hilfsadresse fuer Bildrahmen 
Start EQU $0300 ‚Start fuer Parameteruebergabe 
Amprsand EQU $03F6 ‚Basic &-Vector 

Control EQU Start+$00 ;Graphik Steuerzeichen fuer 

. ‚Drucker ohne ESC-Zeichen 

Bytes EQU Start+$02 ;Anzahl der Graphikbytes pro Zeile 
Impres EQU Start+$04 ;1-, 2- oder 4-fach Dichte 

XOR EQU Start+$06 ;Exklusives oder fuer jedes Byte 
Direct EQU Start+$08 ;Richtung (O=horiz., 1=vertik.) 
Frame_yn EQU Start+$0A ;0=Rand, 1l=kein Rand 

Page EQU Start+$0C ;Graphik Seite 1 oder 2 

Rfactor EQU Start+$0E ;Anzahl der Bilder pro Zeile 
Rdistnce EQU Start+$10 ;Distanz zw. 2 oder mehr Bildern 
Left EQU Start+$12 ;linker Bildrand (0..279) 

Right EQU Start+$14 ;rechter Bildrand (0..279) 

Top EQU Start+$16 ;oberer Bildrand (0..191) 
Bottom EQU Start+$18 ;unterer Bildrand (0..191) 
Xfactor EQU Start+$lA ;Dehnung in X-Richtung 

Yfactor EQU Start+$1lC ;Dehnung in Y-Richtung 

Lnumber EQU Start+$20 ;Graphikzeilennumner 

Asave EQU Start+$21 

Ysave EQU Start+$22 

Hcount EQU Start+$23 

Voount EQU Start+$24 

Bitcount EQU Start+$25 

Counter EQU Start+$26 

Rcounter EQU Start+$27 

Xcount EQU Start+$28 

Ycount EQU Start+$29 

LF EQU $0A ;‚ASCII Code fuer Zeilenvorschub 
CR EQU $0D ;ASCII Code fuer Wagenruecklauf 
ESC EQU $1B ;‚ASCII Code fuer ESCAPE 
Byt0o_255 EQU $0200 ;Zwischenspeicherung 

Prout EQU $C090 ‚Zeichen an Drucker (parallel) 
Prstrb EQU $cı1c1 ‚Drucker bereit? 


KRITIK KK 


LDA #<Pgnstart ;&-Vektor fuer Basic an den Pro- 
* ‚grammstart einstellen 

STA Amprsand 

LDA #>Pgnstart 

STA Amprsandtl 

RTS 


KRITIK 


Pgmstart 


Page_2 


Frametst 


No_Frame 


LDA 
BNE 
LDA 
STA 
BNE 
LDA 
STA 


LDA 
BNE 
JSR 


LDA 
BEQ 
JMP 


Page 
Page_2 
+$20 
Page 
Frametst 
+$40 
Page 


Frame_yn 
No_Frame 
Frame 


Direct 
Horprint 
Verprint 


;initialisieren von Seite 1 oder 2 


;Graphik-Seite 2 


‚Test, auf Bildrahmen 
‚zeichne Rahmen 


‚Test auf horiz. oder vert. 


KRERTTHTTTTTTHH TE FIE  K 


Horprint LDA #23 ‚23/216" Zeilenvorschub 
JSR Linesp 
LDY Top ‚Zeile mit der begonnen wird 
STY Lnumber 

Hstart LDA #$01 ‚Zaehler fuer Dehnung in 
STA Counter ;Y-Richtung 











1150: YF ist der Y-Faktor. Das Bild kann in 
der Vertikalen gestreckt werden. Eine 1 ist 
auch hier die Originalgröße. 

1180 — 1210: Es wird die Möglichkeit ge- 
geben, das augenblicklich im Speicher in 
der ersten Grafikseite befindliche Bild ab- 
zuspeichern. Dies wird immer unter dem 
Namen „PICTURE“ gemacht. 

1220 — 1230: Das Maschinenprogramm 
„PRINTHIRES“ wird geladen und gestar- 
tet. Es stellt den Ampersand-Vektor (&) 
auf den Wert $1C0B ein. Damit kann das 
eigentliche Druckprogramm mit einem 
einfachen &-Befehl gestartet werden. 
1250 -— 1290: Es wird gefragt, ob sich die 
Grafik schon im Speicher befindet. Bei 
einem No wird der Disketteninhalt gezeigt 
und es kann eine Grafik geladen werden. 
1300 — 1330: Der Bildschirm wird auf Gra- 
fik umgeschaltet. 

1340 — 1370: Wenn auf die Frage „Grund- 
einstellung?“ mit Yes geantwortet wird, 
werden die Parameter voreingestellt. Und 
zwar: 


CO =ASC („K“) 


BY = 280 Bytes 

IM =0 = single strike 
X{O =0 = positiv 

DI =0 = horizontal 
FR =0 = Rand 

PA =0 = erste Seite 
RF =1 

RD =0 

LE =0 

RI = 6/39 = low/high 
TP =0 

BO = 191 

XF =1 

YF =1 


1380 — 1460: Abfrage der Parameter 
1470 — 1640: Abfrage der zu ladenden 
Grafik 

1650 — 1700: Abfrage, ob richtiges Bild 
vorhanden ist 

1710 — 1760: Abfrage, ob andere Page 
gezeigt werden soll 

1770 - 1830: Zeigen der zweiten Grafik- 
seite 

1840 — 1850: Zurück zur Abfrage der zu 
ladenden Grafik 

1860 — 1900: Druck der Grafik 

1910 — 1980: Abfrage des nochmaligen 
Druckens und Endes des Hauptpro- 
gramms 

1990 — 2080: Voreinstellung der Para- 
meter 

2090 — 2130: Abfrage eines Kommandos 
2140 — 2320: Einstellen des Druckmodus 
2340 — 2400: Einstellen der Druckstärke 
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1C5C: 
1C3F: 
1042: 
1045: 
1047: 
1CAA: 


1C4D: 
1050: 
1051: 
1053: 
1056: 
1059: 
1C6B: 


ICbE: 


1C61: 
1064: 
1067: 
1C6A: 


166G: 


1C6F: 


1672: 
1675: 
1077: 
1079: 
ICTB: 


ICTD: 
1C80: 
1083: 
1C86: 
1089: 
1C8C: 
1C8E: 


1C8F: 
1092: 
1095: 
1098: 
1C9B: 
1C9E: 
1CAl: 
ICA3: 


lCA6: 
1CA9: 
ICAC: 
lCAE: 
LCBl; 
1CB2: 
1CB3: 
1CB5: 
1CB8: 
1CBB: 
1CBD: 
1CCO: 
1CC3: 
1665: 
1CC8: 
ICCA: 
ICCD: 
1CDO: 


1CD2: 
1CD4: 
1CD7: 
1CD8: 
1CD9: 
LCDC: 
lCDF: 
lCE2: 
ICES: 
1CE7: 
1CEA: 
1CEB: 
lCEE: 
ICFO: 
ICFl: 
1CP2: 
ICF5: 
ICF7: 


20 


CD 
FO 
EE 
ac 


AD 
18 
69 
8D 
CD 


ac 
20 
20 
20 
CE 
DO 
20 
20 
AE 
FO 
EO 
DO 
20 
20 
20 
CE 


DO 
60 


E6 


8r 
BD 
at 
F5 


4A 


F4 


04 


07 
02 
11 


4a 


8F 
BD 
27 
F5 


FC 
Bi 
23 
15 
24 
18 
05 
24 
DC 


23 
F8 


08 
21 


23 
E8 


1C 
03 
03 


03 
1C 


03 


05 


03 


IF 


lE 


IC 


lE 


05 


1D 


lE 


03 


1D 
lE 
1C 
lE 
03 


03 
03 
03 
05 
03 
05 


05 


03 
IF 


05 


03 
03 


05 


03 


17 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
150 
131 
132 
133 
154 
155 
136 
137 
138 
159 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
Irl 
172 
173 
174 
175 
176 


Hstartl 


Hstart2 


Hlline 


Hrepeatl 


Hrptl 
Hrepeat2 


JSR 
LDA 
CMP 
BEQ 
INC 
JMP 


LDA 
CLC 
ADC 
STA 
CMP 
BCC 
JMP 


JSR 


JSR 
JSR 
DEC 
BNE 


JSR 
JSR 


LDX 
CPX 
BEQ 
CPX 
BNE 


JSR 
JSR 
JSR 
JSR 
DEC 
BNE 


SkpDstrk RTS 


Hlline 

Counter 
Yfactor 
Hstart2 
Counter 
Hstartl 


Lnumber 


+$08 
Lnumber 
Bottom 
Hstart 
Quit 


CRLF 


PrHline 

Sendbits 
Rcounter 
Hrepeatl 


PrHagain 
LS1 


Impres 
#$01 
Hrptl 
#502 
SkpDstrk 


PrHagain 
Initline 
PrHline 

Sendbits 
Rcounter 
Hrepeat2 


;Bei Dehnung wird horizontale 


‚Zeile entsprechend oft gedruckt 


;Neue Zeile 


;8 Bits pro Zeile werden gedruckt 


;Drucke horizontale Zeile 


‚Zaehler fuer Bilderanzahl/Zeile 


‚if Impression = 4-fach Dichte 


‚1/216" Zeilenvorschub 


‚doppelte Dichte 


;keine doppelte Dichte 


KRITIK 


PrHline 


X_loop 


Getbyte 


Getbytel 


Getbyte2 


Hgood 


Hloopl 


Hloop2 


Hloop3 


LDA 
STA 
LDY 
STY 
LDA 
STA 
LDA 
STA 


LDA 
JSR 
LDA 
LDX 
LSR 
DEX 
BPL 
ROL 
DEC 
BEQ 
LDA 
CMP 
BEQ 
INC 
BNE 
ASL 
DEC 
BNE 


LDY 
LDA 
LSR 
PHP 
LDX 
STX 
LDX 
STX 
LDX 
ROL 
INX 
DEC 
BNE 
PLP 
PHP 
DEC 
BNE 
PLP 


Left 
Bitcount 
Left+l 
Ysave 
Lnumber 
Vcount 
+$08 
Hcount 


Vcount 
Bascalc 
(Base),Y 
Bitcount 


Getbytel 
Asave 
Hcount 
Hgood 
Vcount 
Bottom 
Getbyte2 
Vcount 
Getbyte 
Asave 
Hcount 
Getbyte2 


+$08 
Asave 


Yfactor 
Ycount 
Yfactor 
Hcount 
#$00 


Byt0_255,X 


Hcount 
Hloop3 


Ycount 
Hloop2 


;druckt eine horizontale Zeile 
;holt linker Rand in bits 
‚hires byte 


;8 Bit werden gedruckt 


‚Zeilenadresse berechnen 


;hole ein Byte 
‚Rechtsverschiebung bis linker 
‚Rand im Byte erreicht ist 

;hole jeweils ein Bit aus den 
‚naechsten 8 Zeilen und vereinige 
‚diese zu einem Byte 


‚8 Bits 
‚vergroessere in Y-Richtung um 
‚Y-Faktor 


2410 — 2470: Einstellen des Positiv/Ne- 
gativ-Drucks 

2480 — 2540: Einstellen der Druckrichtung 
2550 — 2610: Einstellen der Bildumran- 
dung 

2620 — 2680: Wählen der Grafikseite 
2700 — 2990: Einstellen und Ausrechenen 
der restlichen Parameter 

3000 — 3060: Berechnen der Byteanzahl 
(BY) in Abhängigkeit vom linken/rechten 
Rand und vom X- oder Y-Faktor. 





Bedienung des Applesoft- 
Programms 


Das Applesoft-Programm ist menüartig 
gesteuert und somit leicht zu bedienen. 
Die Abfragen erwarten entweder ein J/N 
oder Y/N oder eine Zahl. In beiden Fällen 
braucht die RETURN-Taste nicht betätigt 
zu werden. Es ist egal, ob Sie Groß- oder 
Kleinbuchstaben eingeben. Nur bei der 
Frage „Welche Grafik laden?“ muß nach 
dem Filenamen die RETURN-Taste betä- 
tigt werden. 


Modifikation des Applesoft- 
Programms für andere Drucker 


2140 — 2320: Je nach Möglichkeiten des 
Druckers müssen in CO und CO + 1 die 
Steuerzeichen (ohne führendes ESC) ge- 
schrieben werden. Als Beispiel sei die Zei- 
le 2260 angeführt, die in CO den ASCIl- 
Wert von K schreibt, damit das Maschi- 
nenprogramm an den Drucker die Se- 
auenz ESC „K“ schickt. Dies schaltet ei- 
nen Epson Drucker auf Normalgraphik. 
Das Applesoft-Programm läuft mit den 
meisten Interfaces. 





1CF8: 
1CF9: 


ICFB: 
lCFE: 
1D01: 
1D03: 
1D04: 
1D07: 
1D08: 
1DOB: 
1DOC: 
1DOE: 
1DOF: 
1D10: 
1D12: 
1D15; 


IE: 
1D1A: 


1D1D: 
1D20: 
1D21: 


1023: 
1D26: 
1D29: 
1D2B: 
1DZE: 
1D31: 
1D33: 
1D34: 
1D37: 
1D3A: 
1D3G: 
1D3E: 
1D41: 
1D42: 
1D44: 
1D47: 


1DAA: 
1D4AD: 
1D4F': 
1D51: 
1D54: 
1D8'7: 
1D5A: 


88 
DO 


AE 
8E 
AO 
18 
AE 
CA 
TE 
CA 
10 
ZA 
88 
DO 
CE 
DO 


4D 
AE 


20 
CA 
DO 


AC 
cc 
DO 
AD 
CD 
DO 
60 
EE 
AD 
c9 
FO 
ac 
c8 
Ag 
8D 
ac 


AD 
c9 
DO 
20 
20 
20 
CE 


DC 


26 
24 
08 


1C 


00 


FA 


Fl 
24 
EA 


06 
1A 


TB 


FA 


ER 
15 
09 
25 
14 
01 


25 
25 
07 
03 
98 


00 
25 
98 


04 
02 
0E 


8F 
BD 
27 


03 


03 


05 


02 


03 


05 


03 


lE 


03 
03 


03 
03 


05 
03 


1C 


03 
1C 


03 


lE 
1lC 
lE 
03 





177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
all 
212 
213 
214 
»18 
216 
RT 
218 
219 
220 
2 
222 
223 
224 
225 
226 
227 
228 
229 
250 
251 
252 
233 
254 
235 
236 
257 
238 
259 
240 
24Al 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 


Hloop4 
Hloop5 


Hloop6 


Hagain 


Hagainl 


Hagain2 


DEY 
BNE 


LDX 
STX 
LDY 
CLC 
LDX 
DEX 
ROR 
DEX 
BPL 
ROL 
DEY 
BNE 
DEC 
BNE 


EOR 
LDX 


JSR 
DEX 
BNE 


LDY 
CPY 
BNE 
LDA 
CMP 
BNE 
RTS 
INC 
LDA 
CMP 
BEQ 
JMP 
INY 
LDA 
STA 
JMP 





Hloopl 
Counter 
Vcount 


#508 


Yfactor 


Byt0_255,X 


Hloop6 


Hloop5 
Vcount 
Hloop4 


XOR 
Xfactor 


Print 
Hagain 


Ysave 
Right+l 
Hagainl 
Bitcount 
Right 
Hagainl 


Bitcount 
Bitcount 
#$07 
Hagain2 
X_loop 


#$00 
Bitcount 
X_loop 





grafik 4 


‚vergroessert in X-Richtung um 


;X-Faktor 


‚rechter Bildschirmrand schon 
‚erreicht? 


‚ja, dann Ende 


‚alle 7 Bits schon abgearbeitet? 


‚7 hires Bits pro Byte 


‚nein 


‚naechstes Byte 


KERKKRTTTTTTTT THE 


PrHagain LDA 


CMP 
BNE 
JSR 


PrHaganl JSR 


JSR 
DEC 
BNE 


PrHagan2 RTS 


Impres 
#$02 
PrHagan2 
Initline 
PrHline 
Sendbits 
Rcounter 
PrHaganl 


;vierfache Dichte 


KERNE FH HE 


PrVagain LDA 


CMP 
BNE 
JSR 


PrVaganl JSR 


JSR 
DEC 
BNE 


PrVagan2 RTS 


Impres 
#502 
PrVagan2 
Initline 
PrVline 
Sendbits 
Rcounter 
PrVaganl 


‚vierfache Dichte 


KR + 


Verprint LDA 


Vstart 


JSR 


LDY 
STY 
LDA 
STA 


Countrlp JSR 
Vrepeatl JSR 


JSR 
DEC 
BNE 


JSR 
JSR 
LDX 


CPX 
BEQ 


#20 
Linesp 


Right+tl 
Ysave 
#+$01 
Counter 


CRLF 
PrVline 
Sendbits 
Rcounter 
Vrepeatl 


PrVagain 
LS1 
Impres 


#$01 
Not_ds 


;20/216'" Zeilenvorschub 
;der vertikale Druck funktioniert 


‚wie der horizontale Druck, mit 
‚dem Unterschied, dass immer nur 
‚7 Bits pro Zeile ausgedruckt wer- 
‚den. 











Modifikation des Maschinen- 
Programms für andere Drucker 
oder Interfaces 


379 — 382: In Asave befindet sich das 
Byte, das auszudrucken ist. Ist der Druk- 
ker noch nicht fertig, wartet er in der 
Prwait-Schleife. Das Programm wartet, 
wenn der Printerstrobe negativ ist. Der 
Printerstrobe kann in Zeile 48 geändert 
werden. Ist der Drucker fertig, wird das 
Zeichen an den Drucker gesandt. Dies 
geschieht mit einem STA $C090 (gültig für 
Slot 1). In Zeile 47 kann das geändert 
werden. 

Wichtig ist also, wie das Interface erkennt, 
ob der Drucker schon druckbereit ist, und 
wie ein Zeichen an den Drucker geschickt 
wird. 

429 — 438: Hier muß die Kontrollsequenz 
untergebracht sein, die bewirkt, daß der 
Drucker auf n/216 Inch Zeilenabstand um- 
schaltet. Beim Epson ist dies ESC „3“. 
449 — 457: Hier muß sich die Kontrollse- 
quenz befinden, die das Papier um 1/216 
Inch vorwärtsbewegt. Beim Epson ist dies 
ESC „J" 1. 


Hinweis: Eine modifizierte Version von 
PRINTHIRES für den Image-Writer befin- 
det sich in Vorbereitung für die Peeker- 
Sammeldiskette. 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


vonU. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0“- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple Il Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 


nn Le no no m 
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1DAl: 
1DA3: 


1DA5: 
1DAB8: 
1DAB: 
1DAE: 
1DBl: 
1DB4: 


1DB6: 
1DB9: 
1DBC: 
1DBE: 
1061; 


1DC4: 
1DC7: 
1DC8: 
1DC9: 
1DCC: 
1DCE: 


1DD1: 
1DD4: 
1DD7: 
1DDA: 
1DDD: 
1DDF: 
1DE2: 
1DES: 
1DE7: 
1DE9: 
1DEA: 
1DED: 
lDEF: 
1DFO: 
1DFl: 
1DF3: 
1DF4: 
1DF5: 
1DF7: 
1DFA: 
1DFD: 
1E00: 
1E03: 
1E06: 
1E08: 
l1EOB: 
1EOD: 
lEOF: 
1E10: 
lEll: 
lEl3: 
1E16: 
1E18: 
1E19: 
lElA: 
lElD: 
1E2O: 
1E23: 
1ER6: 
1E28: 
lE2B: 
lE2C: 
lEZF: 
1ES1: 
1E32: 
1E33: 
1E36: 
1E38: 
1E39: 
1E3A: 


1E3C: 
l1E3F: 
1E42: 
1E44: 
1E45: 
1E48: 
1E49: 
1E4C: 
1E4AD: 
1E4F: 
1E50: 
1651: 


FF 


28 
E83 
DC 
26 


24 
07 


00 


FA 


Fl 


1D 
lE 


lE 


03 


03 


03 


03 


03 


05 


IF 


03 


IF 
03 


03 


03 


03 


03 


05 
03 


03 


266 
267 
268 
269 
270 
27 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
291 
298 
239 
300 
301 
302 
3053 
304 
305 
306 
507 
308 
309 
310 
Sıll 
312 
313 
514 
315 
316 
317 
318 
319 
320 
321 
322 
523 
324 
325 
326 
327 
328 
329 
330 
351 
352 
333 
354 
355 
356 
337 
538 
339 
340 
341 
342 
343 
344 
545 
346 
347 
348 
349 
350 
351 
352 
353 


Not_ds 
Vrepeat2 


Skip_ds 


Next_X 


KERRETTTEEEEEE K 


PrVline 


Lineloop 


Lnloopl 


RMbit 


Genmask 


Vok 
Vokl 


Vok20 


Vok2 


Vok3 
Vok4 


Vok5 


CPX 
BNE 


JSR 
JSR 
JSR 
JSR 
DEC 
BNE 


LDA 
CMP 
BEQ 
INC 
JMP 


LDA 
TAY 
DEY 
CMP 
BNE 
JMP 


LDA 
STA 
JSR 
LDY 
LDA 
STA 
CPY 
BNE 
LDA 
SEC 
SBC 
BEQ 
TAX 
INX 
LDA 
LSR 
DEX 
BNE 
AND 
STA 
LDA 
LDY 
CPY 
BNE 
LDX 
BEQ 
LDA 
ASL 
DEX 
BNE 
AND 
LDY 
LSR 
PHP 
LDX 
STX 
LDX 
STX 
LDX 
ROL 
INX 
DEC 
BNE 
PLP 
PHP 
DEC 
BNE 
PLP 
DEY 
BNE 


LDX 
STX 
LDY 
CLC 
LDX 
DEX 
ROR 
DEX 
BPL 
ROL 
DEY 
BNE 


+$02 
Skip_ds 


PrVagain 
Initline 
PrVline 

Sendbits 
Rcounter 
Vrepeat2 


Counter 
Xfactor 
Next_X 
Counter 
Countrlp 


Ysave 


Left+l 
Vstart 
Quit 


Top 
Lnumber 
Bascalc 
Ysave 
(Base),Y 
Asave 
Right+l 
RMbit 
+$06 


Right 
RMbit 


#$FF 


Lnloopl 
Asave 
Asave 
Asave 
Left+1 
Ysave 
Vok 
Left 
Vok 

#$ FF 


Genmask 
Asave 
#507 


Xfactor 
Xcount 
Xfactor 
Hcount 
#$00 


Byt0_255,X 


Hcount 
Vok2 


Xcount 
Vok20 
Vokl 
Counter 
Vcount 


+$07 


Xfactor 


Byt0_255,X 


Vok5 


Vok4 





;keine doppelte Dichte 


‚rightmost bit 


‚7 Bits pro Zeile 


1E53: 
1E56: 


1E58: 
1E5SB: 
1ESD: 


1E60: 
1E63: 
1E64: 


1E66: 
1E69: 
1E6C: 
lE6F: 
1E72: 
1E74: 


1E77: 


1E78: 
1ETB: 
1876: 
1E7D: 
lETE: 
lE7TF: 
1E82: 
1E85: 
1E87: 
1E8A: 
1E8B: 
1E8C: 
1E8D: 
lESE: 
1E91: 


1E92: 
1E94: 
1E97: 
1E99: 
1E9C: 
l1E9F: 
1EA2: 
1EAS5: 
1EA7: 
lEAA: 
lEAD: 
l1EBO: 
lEB3: 
l1EB6: 
l1EB9: 
lEBC: 


l1EBD: 
1ECO: 
l1EC1: 
1EC4: 
1EC5: 
1EC7: 
1EC8: 


1ECA: 
l1ECC: 
lECF: 
l1EDO: 
l1ED2: 
1ED3: 
1ED5: 


1ED6: 
1ED7: 
1ED9: 
l1EDC: 
lEDE: 
lEEl: 
lEE2: 
1EE5: 


1EE6: 


CE 
DO 


4D 
29 
AC 


20 
88 
DO 


AE 
EE 
AD 
EC 
BO 
ac 


60 


8D 
8A 


98 
48 
AD 
2C 
30 
8D 
68 
A8 
68 
AA 
AD 
60 


A9 


A9 
20 
AD 
20 
AD 
FO 
20 


20 
AD 
20 
AD 
8D 


AD 
AA 
AD 
A8 
DO 
8A 
FO 


Ag 
20 
CA 


88 


10 
60 


A9 


24 
EA 


06 
TF 
1C 
78 
FA 


20 
20 


18 


03 
D7 


21 


21 
Cl 
FB 
90 


21 


10 


41 


05 


OB 


00 
78 


FA 


F7 


1B 
78 


78 


78 


OD 


05 


03 


05 


lE 


03 


05 
cl 


co 


03 


03 


03 


lE 


lE 


lE 


lE 


554 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
38l 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
594 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
all 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
4253 
424 
425 
426 
427 
428 
429 
450 
451 
432 
433 
454 
435 
436 
437 
4358 
459 
440 
441 
442 


DEC 
BNE 


EOR 
AND 
LDY 


JSR 
DEY 
BNE 


Vagain 


LDX 
INC 
LDA 
CPX 
BCS 
JMP 


Vagainl RTS 





Vcount 
Vok3 


XOR 
#+$7F 
Yfactor 


Print 
Vagain 


Lnumber 
Lnumber 
Lnumber 
Bottom 
Vagainl 
Lineloop 


KRITIK 


Print STA 
TXA 
PHA 
TYA 
PHA 
LDA 
Prwait BIT 
BMI 
STA 
PLA 
TAY 
PLA 
TAX 
LDA 
RTS 


Asave ‚diese Unterprogramm, das mit ei- 
‚nem Parallel Interface arbeitet, 
‚schickt ein Zeichen an den 
‚Drucker. Will man andere Schnitt- 
‚stellen benutzen, so muss dieses 

Asave ;UP geaendert werden 

Prstrb ‚ist Drucker bereit? 

Prwait 

Prout ‚wenn ja, sende ein Zeichen 

Asave 


KRFRFTTRTTTTTTTTTTTTTTTTTTTTIIIIII IE 


Initline LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
BEQ 
JSR 
Initinl LDA 
JSR 
LDA 
JSR 
LDA 
STA 
RTS 


#CR ‚neue Zeile initialisieren 
Print 
#+ESC ‚das ESC-Zeichen geht den Graphik- 


‚steuerzeichen immer vorraus 
;‚Steuerzeichen fuer Graphikmodus 


Print 
Control 
Print 
Control+l 
Initlinl 
Print 
Bytes 
Print 
Bytes+l 
Print 
Rfactor 
Rcounter 


‚Anzahl der Graphikbytes, zuerst 


‚low, dann high 


KRITIK III I III 


Sendbits LDA 
TAX 
LDA 
TAY 
BNE 
TXA 
BEQ 


Sendthem LDA 
Sendl JSR 
DEX 
BNE 
DEY 
BPL 
Exitsend RTS 


Rdistnce ;Zwischenraum zwischen 2 oder mehr 
‚Bildern pro Zeile 

Rdistnce+tl 

Sendthem 

Exitsend 

#+#$00 ‚Zwischenraum wird mit $00 ge- 

Print ;fuellt 

Sendl 

Sendl 


KRRRTTTHTHTTHIEEEIIK 


Linesp PHA 
LDA 
JSR 
LDA 
JSR 
PLA 
JSR 
RTS 


‚Inhalt des Akkus * 1/216'" Zeilen- 
#+ESC ‚vorschub 
Print 
#13! 
Print 


Print 


KRRRRTTTTTTTTTIHTIIIIII EI 


CRLF LDA 


#CR ‚neue Zeile 








TEAC FD535A 40 Track einseitig 

TEAC FD55B 40 Track doppelseitig .. 
TEAC FDS5S5E 80 Track einseitig 

TEAC FD55F 80 Track doppelseitig .. 
TEAC FD55G 8” kompatibel 
APPLE®-kompatibles Laufwerk 


ZUSATZ-KARTEN: 
V-24-Schnittstelle 
Z-80-Karte m. Softswitch 
80-Zeichen-Karte 
16 K-Language-Karte 
Centronics-Karte von Epson 
fürGraphik....210,- für Text.... 
Eprommer incl. Software 


Joy Stick 
Netzteil 5A 


Wir haben das Floppy-Gehäuse für Sie ! 
19" System 42 TE 3HE 
(135 x 216 x 300) 
Komplett vorgefertigt für 2 
PLaufwerke 5% Slimline 

(Teac) oder 3% (BASF). 

- für APPLE 

Floppy-Kabel 34pol. für 2 Laufwerke 
mit Shugart-Bus 


Floppy-Controller für Apple-komp. Computer 
Dieser Controller kann 2 Apple-Laufwerke 
steuern oder 2 Laufwerke mit Shugart-komp. 
Bus (auch doppelseitig 40 oder 80 Track), z.B. 
BASF - TEAC - PHILIPS - SHUGART etc., 
auch SONY 3%" Laufwerke 

aufgebaut und getestet 

Bausatz wie oben 

Leerplatine wie ob. incl. Prom u. Eprom 98,- 


Die Alternative... 


Preh Commander Keyboards 


(Sonderanfertigung für Apple-kompatible Computer) 
Auf die Preh-Qualität brauchen auch Sie 
nicht mehr zu verzichten. 

AK 88 -Apple spez.- kompl. mit Gehäuse, An- 
schlußkabel, deutschem Tastensatz, separat. 
Zehner-Block sowie Sondertasten f. Rechen- 
funktionen und häufig gebrauchte Controller- 


EPSON-Drucker FX 80 
EPSON-Drucker FX 100 
EPSON-Drucker RX 80 
EPSON-Drucker RX80 FT 


Patch-Diskette -ermöglicht die Modifikation 
der drei häufigsten Betriebssysteme für Apple 
Ilbzw. kompatible Computer zum Betrieb von 
1x 35 bis 2x 80 Track Laufwerken bis 640 K 
pro Drive 

Manual vorab 15,-DM (wird beim Kauf der 
Patch-Diskette angerechnet). 
Patch-Diskette für SONY 3%Y2" Laufwerke - 
ermöglicht die Anpassung an Il/lle und kom- 
patible Computer 80,- 
Manual vorab 15,-DM (wird beim Kauf der 
Patch-Diskette angerechnet). 

10 Disketten f. Sony 312” Laufwerke . 150,- 


SONY 312" Laufwerk 


... deshalb 
...nur 849 4 na gleich bestellen! 


Preisliste anfordern von: 


Vedingeleecetronies 


DFÜ 02373/66877 
Tel. 02373/63159 


Holtewiese 2 
5750 Menden 1 





Betriebsferien vom 5. - 19. Oktober ’84 
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PRINTHIRES Hex-Dump 


$1C00: 
$1C0o8: 
$1C10: 
$1c18: 
$1020: 
$1c28: 
$1C30: 
$1C38: 
$1C40: 
$1C48: 
$1C50: 
$1058: 
$1C60: 
$1C068: 
$1070: 
$1078: 
$1C80: 
$1C88: 
$1C90: 
$1C98: 
$1CA0: 
$1CAB: 
$1CB0: 
$1CB8: 
$1cco: 
$lcc8: 
$1cDo: 
$1CD8: 
$1CEO: 
$1CES: 
$1CFO: 
$ICF8: 
$1D00: 
$1D08: 
$1D10: 
$1D18: 
$1D20: 
$1D28: 
$1D30: 
$1D38: 
$1D40: 
$1D48: 
$1D50: 
$1D58: 
$1D60: 
$1D68: 
$1D70: 
$1D78: 
$1D80: 
$1D88: 
$1D90: 
$1D98: 
$1DAO: 
$1DA8: 
$1DBO: 
$1DB8: 
$1DCO: 
$1Dc8: 
$1DDO: 
$1DD8: 
$1DEO: 
$1DES: 
$1DFO: 
$1DF8: 
$1EOO: 
$1EOS: 
$1E10: 
$1E18: 
$1E20: 
$1E28: 
$1E30: 
$1E38: 
$1E40: 
$1E48: 
$1E50: 
$1E58: 
$1E6O: 
$1E68: 
$1E70: 
$1E78: 
$1E80: 
$1E88: 
$1E90: 
$1E98: 


F6 


05 
oc 
05 
AD 
AD 
A9 
sc 


A9 


1C 


8D 


l1EE8: 
lEEB: 
lEED: 
lEFO: 
lEF3: 


lEF4: 
lEF6: 
lEF9: 
lEFB: 
lEFE: 
1F00: 
1F03: 


1F04: 
1F06: 
1F09: 
1FOB: 
1FOD: 
lFOF: 
1F12: 
1F14: 
iF1B: 
1F17: 
1F19: 
IF1B: 
lFlE: 
1F2O: 
1F22: 
1F25: 
1F27: 
1F28: 
1FRA: 
1F2C: 
l1F2ZE: 
1F2F: 
1F32: 
1F34: 
1F36: 
1F39: 
1F3B: 
lIF3E: 
1F40: 
1F43: 
1F45: 
1F48: 
1F4B: 
lF4AE: 
1F50: 
1F52: 
1F54: 
1F57: 
1F59: 
1ÄF5C: 
1F5E: 
1F60: 
1F63: 
1F65: 
1F68: 
1F6B: 
1F6E: 
1F70: 
irrt: 
1F73: 
1F75: 


1F76: 
1F77: 
1F79: 
1F7B: 
LP7G: 
1F7D: 
IFTF: 
1F81: 
1F82: 
1F84: 
1F85: 
1F86: 
1F87: 
1F89: 
1F8A: 
1F8C: 
1F8D: 


Ag 
20 
A9 


A9 
20 
60 


78 
OA 


92 


co 
1C 


1C 


1C 


1D 


1D 


1D 


IC 


lE 


lE 
lE 


lE 


lE 


lE 


03 


03 


IF 


05 


IF 


03 
03 
03 
03 


03 
03 


03 


03 


03 


03 
05 
03 


443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
5ol 
502 
503 
504 
505 
506 
507 
508 
509 
510 
Sll 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 


JSR 
LDA 
JSR 
JSR 
RTS 


Print 
#LF 
Print 
Initline 


KR TTTTTTTTTE KE 


LS1 LDA 
JSR 


LDA , 


JSR 
LDA 
JSR 
RTS 


#ESC ;1/216" Zeilenvorschub 
PrIiAt 

#'J' 

Print 

#$01 

Print 


KRITIK 


Frame LDY 
LDA 
STY 
STA 
LDA 
EOR 
Framel STA 
INY 
CPY 
BCC 
LDA 
JSR 
LDY 
LDA 
EOR 
Frame2 STA 
INY 
CPY 
BCC 
LDX 
Frame3 TXA 
JSR 
LDY 
LDA 
STA 
LDA 
EOR 
BMI 
ORA 
BNE 
Frame4 AND 
Frameö5 STA 
LDA 
STA 
LDY 
LDA 
STA 
LDA 
EOR 
CMP 
BNE 
ORA 
BNE 
Frame6 AND 
Frame” STA 
LDA 
STA 
INX 
CPX 
BCC 
RTS 


#500 ‚Dieses UP malt einen Rahmen um 
Page ‚das Bild (zum besseren Ausschnei- 
Frameadr ;den) 

Frameadr+l 

#$FF 

XOR 

(Frameadr),Y 


+$28 
Framel 
#191 
Bascalc 
#+$00 
#$FF 
XOR 
(Base),Y 


+$28 
Frame2 
#$00 


Bascalc 
#$00 
(Base) ,Y 
Asave 
#$01 

XOR 
Frame4 
Asave 
Frameö5 
Asave 
Asave 
Asave 
(Base) ,Y 
#527 
(Base),Y 
Asave 
#+$40 

XOR 

#+$40 
Frame6 
Asave 
Frame” 
Asave 
Asave 
Asave 
(Base),Y 


‚negativ 


‚unbedingter Sprung 


‚negativ 


#192 
Frame 


KRRKHHHHTT THE A 


Bascalc PHA 
AND 
STA 
LSR 
LSR 
ORA 
STA 
PLA 
STA 
ASL 
ASL 
ASL 
ROL 
ASL 
ROL 
ASL 
ROR 


‚Berechnet die Basisadresse der 


#$C0 ‚Zeile, die im Akku uebergeben 

Base ;wurde und modifiziert sie ent- 
‚sprechend der 1. oder 2. Graphik- 
‚seite 

Base 

Base 

Base+tl 

Base+tl 

Base+tl 

Base 


1F8F: 
1F91: 
1F93: 
1F96: 
1F98: 


1F99: 
1F9B: 
1FYE: 
1FAO: 
1FA3: 
1FAS5: 
1FAB8: 
l1FAA: 


1FAD: 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1170 
1180 
1190 


1200 
1210 
1220 


1230 
1240 
1250 
1260 
1270 
1280 


1290 
1500 
1310 
1320 
1530 
13540 
1545 


1350 
1360 
1370 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 





9.38 ale ake ale ak aka ale ak ak ak ak ak ae ak ak ae ae ak ak ae ak a ea ak aa a ae a a aa aaa aa aaa aaa 


AS 1D 552 LDA Basetl 
23 IF 533 AND #$1F 
OD 0OC 03 534 ORA Page 
85 1D 5355 STA Basetl 
60 536 RTS 

557 

539 
49 ı1B 540 Quit LDA #ESC 
20 78 ME 541 JSR Print 
A9 32 542 LDA #'2' 
20 78 1E 543 JSR Print 
A9 OA 944 LDA #LF 
20 78 1E 545 JSR Print 
A9 OA 546 LDA #LF 
20 78 1E 547 JSR Print 

548 
60 549 RTS 

550 


;‚Zeilenabstand auf 12 Bits 


;2 mal Zeilenvorschub 


;zurueck zu BASIC 


551 Belek 


ST = 768: REM START 


CO = ST + 00: REM CONTROL CHARACTERS 
BY = ST + 02: REM BYTES 
IM = ST + 04: REM IMPRESSION 
X0 = ST + 06: REM EXCLUSIVE OR 
DI = ST + 08: REM DIRECTION 
FR = ST + 10: REM FRAME 
PA= ST + 12: REM PAGE 
RF = ST + 14: REM REPEAT FACTOR 
RD = ST + 16: REM REPEAT DISTANCE 
LE = ST + 18: REM LEFT 
RI = ST + 20: REM RIGHT 
TP = ST + 22: REM TOP 
BO = ST + 24: REM BOTTOM 
XF = ST + 26: REM X FACTOR 
YF = ST + 28: REM Y FACTOR 
TEXT : HOME 
PRINT "Bild speichern ? (j/n)";: GE 
IF (A$ < > "y") AND (A$ < > "y") 


AND (A$ < > "j") GOTO 1220 
PRINT 


TA$ 
AND (A$ < > "J") 


PRINT CHR$ (4) "BSAVE PICTURE, A$2000,L$2000" 


HOME : VTAB 22: INVERSE : 
FUER EPSON DRUCKER": NORMAL 
PRINT CHR$ (4) "BRUN PRINTHIRES" 

HOME : VTAB (22) 

PRINT "Graphik schon im Speicher ? 
GET A$ 

IF (A$ "N") OR (A$ 
IF (A$ = "Y") OR (A$ 
"j") GOTO 1590 

GOTO 1250 

POKE - 16300,0: REM LOW PAGE 

POKE - 16301,0: REM MIXED MODE 
POKE - 16297,0: REM HIRES MODE 
POKE - 16304,0: REM GRAPHICS MODE 
HOME : VTAB (22) 

FOR I = ST TO ST + 29: POKE I,0: NE 
ALL PARAMETERS 

GOSUB 2000: REM SET DEFAULT PARAMET 
PRINT "Grundeinstellung ? (j/n)";: 


PRINT "GR 


"n") GOTO 14 


APHIK HARDCOPY 


(j/n)"; 


70 


en) OR (A$ = "z") OR (A$ = 


XT : REM CLEAR 


ERS 
GET A$ 


IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 


"j") GOTO 1860 

TEXT 

GOSUB 2150 

GOSUB 2340 

GOSUB 2420 

GOSUB 2490 

GOSUB 2560 

GOSUB 2630 

GOSUB 2700 

GOTO 1860 

HOME : VTAB (22) 

PRINT "Diskette mit Graphikfiles ei 
"und Taste druecken"; 

GET A$ 

TEXT 

PRINT 

PRINT CHR$ (4) "CATALOG" 

PRINT 

INPUT "Welche Graphik laden ? ";A$ 
IF A$ = "" THEN A$ = "PICTURE" 
HGR 

HOME : VTAB (22) 


nschieben': PRINT 





Nrofi I 


der Apple-Kompatible! 


64 K RAM, 
2 CPUs (6502 + Z80A), 


Profi Il, opt. wie Apple, inkl. 1 Floppy m. Controller 1998.- 
Profi II im Alu-Gehäuse, freistehende Tastatur m. 
Zehnerblock, 1 Floppy m. Controller 

dito, mit 2 Laufwerken 

dito, mit 2 Laufwerken a. 320K. ............. 3385.- 
dito, mit 2 Laufwerken a. 640K. ............. 3728.- 
Alle Rechner im Alu-Geh. werden mit ca. 300seit. deut- 
schem Handbuch geliefert! 

Aufpreis für 7,5-A-Schaltnetzteil 

Weitere Modelle auf Anfrage! 


Erweiterungs-Karten, z. B. Pio/Centr./AD-DA-Wandler 
BEN; ann Er En ae a. Anfrage 
6 Monate Garantie! 


Dorsch - electronic 


Forther Hauptstraße 23, 8501 Eckental 2 
Telefon (09126) 74 19 


ELEGTRONIG-VERTRIEB 
LACHELE 


CAD Hard- und Software - Vertrieb - 
Schulung - Beratung und eigener 
Service 


EPSON 
APPLE 


MITSUBISHI - IBM 
GENIE 16 - OLIVETTI 


EDV-Zubehör und Interface-Karten 
für APPLE + IBM 


Saarbrücker Str. 7 
Postfach 410 350 
6800 MANNHEIM 31 
Telefon 06 21/722275 





DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres“ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmadiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
einsatzfähig auf Apple Ile, IIc oder Il Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,— (2 Disketten + ge- 
drucktes Manual) 
U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 
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$1EAO: 78 l1E AD Ol 03 FO 03 20 
$1EA8: 78 l1E AD 02 03 20 78 1E 
$1EBO: AD 03 03 20 78 1E AD OE 
$1EBS: 03 8D 27 03 60 AD 10 03 
$1ECO: AA AD 11 03 A8 DO 03 8A 
$1EC8: FO OB A9 00 20 78 1E CA 
$1EDO: DO FA 88 10 F7 60 48 A9 
$1ED8: 1B 20 78 1E A9 33 20 78 
$1EEO: 1E 68 20 78 1E 60 A9 OD 
$1EES: 20 78 1E A9 OA 20 78 1E 
$1EFO: 20 92 1E 60 A9 1B 20 78 
$1EF8: l1E A9 AA 20 78 1E A9 01 
$1F00: 20 78 1E 60 AO 00 AD 0C 
$1F08: 03 84 1E 85 IF A9 FF 4D 
$1F10: 06 03 91 1E C8 CO 28 90 
$1F18: F9 A9 BF 20 76 IF AO 00 
$1F20: A9 FF AD 06 03 91 IC C8 
$1F28: CO 28 90 F9 A2 00 8A 20 
$1F30: 76 IF AO 00 Bl 1C 8D 21 
$1F38: 03 A9 01 AD 06 03 30 05 
$1F40: OD 21 03 DO 03 2D 21 03 
$1F48: 8D 21 03 AD 21 03 91 IC 
$1F50: AO 27 Bl 1C 8D 21 03 A9 
$1F58: 40 AD 06 03 C9 40 DO 05 
$1F60: OD 21 03 DO 03 2D 21 03 
$1F68: 8D 21 03 AD 21 03 91 IC 
$1F70: ES EO CO 90 B9 60 48 29 
$1F78: CO 85 1C 4A AA 05 IC 85 
$1F80: 1C 68 85 1D OA OA OA 26 
$1F88: 1D OA 26 1D OA 66 IC A5 
$1F90: 1D 29 IF OD OC 03 85 1D 
$1F98: 60 A9 1B 20 78 1E A9Y 32 
$1FAO: 20 78 1E A9 OA 20 78 1E 
$1FA8: A9 OA 20 78 1E 60 00 00 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lle 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,— 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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PRINT CHR$ (4) "BLOAD";A$: REM LOW PAGE 
POKE - 16300,0: REM LOW PAGE 

POKE - 16301,0: REM MIXED MODE 

POKE - 16297,0: REM HIRES MODE 

POKE - 16304,0: REM GRAPHICS MODE 
P=0O 

POKE PA,O 

HOME : VTAB (22) 

PRINT "Ist dies das richtige Bild ? (j/n)"; 
GET A$ 

IF (A$ = "yY") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
"j") GOTO 1300 

IF (A$ = "N") OR (A$ = "n") GOTO 1710 

GOTO 1630 

HOME : VTAB (22) 

PRINT "Wollen Sie die andere Graphikseite'": PRINT 
"sehen ? (j/n)"; 

GET A$ 

IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
na) GOTO 1770 

IF (A$ = "N") OR (A$ = "n") GOTO 1840 

GOTO 1710 

POKE - 16299,0: REM HIGH PAGE 

POKE - 16302,0: REM GRAPHICS ONLY 

P=1 

POKE PA,1 

GET A$ 

PRINT 

POKE - 16300,0: REM LOW PAGE 

POKE - 16301,0: REM MIXED MODE 

GOTO 1650 

POKE - 16303,0: REM RESET TEXT 

GOTO 1470: REM TRY AGAIN 

POKE - 16302,0: REM GRAPHICS ONLY 

IF P< >0 THEN POKE - 16299,0 

POKE - 16297,0 

POKE - 16304,0 

& : REM CALL MACHINE ROUTINE ($1COB) 

TEXT 

HOME : VTAB (22) 

PRINT "Nochmal ? (j/n)"; 

GET A$ 

IF (A$ = "Y") OR (A$ = "y") OR (A$ = "J") OR (A$ = 
"j3") GOTO 1240 

IF (A$ = "N") OR (A$ = "n") GOTO 1980 

GOTO 1920 

HOME : END 

REEM a ak ak ake ale ak ak ak ak ak ak ak ak ak aaa 

POKE CO, ASC ("K") 

POKE BY,24: POKE BY + 1,1: REM 280 BITS PER 


HORIZONTAL LINE 


POKE RF,1 

POKE RI,6 

POKE RI + 1,39 

POKE BO,191 

POKE XF,1 

POKE YF,1 

RETURN 

REM 3 akakakak ak ak ak aka 

PRINT.: PRINT "Welches Kommando: "; 
GET C$: IF (C$ = " ") OR (C$ = CHR$ (13)) THEN C$ = 
"y" 

IF VAL (C$) = O0 THEN C$ = "!" 
RETURN 

REEM 3% ae ale ale ak ak ak ak ak ale ak ak ak ak ak ak aa 

HOME 

PRINT '"<]1> Normal density": PRINT 
PRINT "<2> Dual density": PRINT 
PRINT "<3> Double speed, dual density": PRINT 
PRINT '"<4> Quadruple density": PRINT 
PRINT "<5> CRT graphics": PRINT 
PRINT "<6> Plotter graphics": PRINT 
PRINT "<7> CRT graphics II": PRINT 
POKE CO, ASC ("x") 

GOSUB 2100 


ON VAL (C$) GOTO 2260 ,2270,2280 ,2290 ,2300 ‚2310 , 2320 
POKE CO, ASC ("K"): RETURN . 
POKE CO, ASC ("L"): RETURN 

POKE CO, ASC ("Y"): RETURN 

POKE CO, ASC ("Z"): RETURN 

POKE CO + 1,4: RETURN 

POKE CO + 1,5: RETURN 

POKE CO + 1,6: RETURN 

REEM 3 aka aka ale ak ak ak ae ale ak aka ak ak ak aka 

HOME 

PRINT '"<1l> Single strike": PRINT 

PRINT "<2> Double strike": PRINT 

PRINT "<3> Quadruple strike": PRINT 
































GOSUB 2100 INPUT "Wiederholungsdistanz: 


2390 POKE IM, VAL (C$) - 1 2760 I = ABS (I): IF I > 255 THEN I =0 

2400 RETURN 2770 POKE RD,I 

2A1OD REM 3 ak ake ak ak ak ak ak ak ak ak ak aka aka aka 2780 INPUT "Linker Rand e Mur 

2420 HOME 2790 I = ABS (I): IF I > 279 THEN I =O0 

2430 PRINT "<1l> Positiv": PRINT 2800 POKE LE + 1, INT (I / 7) 

2440 PRINT "<2> Negativ": PRINT 2810 POKE LE,I- INT(I/7) «7 

2450 GOSUB 2100 2820 INPUT "Rechter Rand eo MrT 

2460 IF C$ = "2" THEN POKE X0,255 2830 I = ABS (I): IF I > 279 THEN I = 279 

2470 RETURN 2840 POKE RI + 1, INT (I / 7) 

2ABO RIM ak aka ale akealeake ak aka ak ak ak ala ak ek 2850 POKE RI, I- INT(I/7) «7 

2490 HOME 2860 INPUT "Oberer Rand ı el 

2500 PRINT "<1> Horizontal": PRINT 2870 I= ABS (I): IF I > 191 THEN I =O0 

2510 PRINT "<2> Vertikal": PRINT 2880 POKE TP,I 

2520 GOSUB 2100 2890 INPUT "Unterer Rand A | 

2530 POKE DI, VAL (C$) - 1 2900 I = ABS (I): IF I > 191 THEN I = 191 

2540 RETURN 2910 POKE BO,I 

2550 RIM 3akakealealeaeakakakakakakakakak aka 2920 INPUT "X-Faktor ı #51 

2560 HOME 2930 I = ABS (I): IF I > 31 THENI=|]1 

2570 PRINT "<1> Rahmen": PRINT 2940 IF I=0 THENI=|]1 

2580 PRINT "<2> Kein Rahmen": PRINT 2950 POKE XF,I 

2590 GOSUB 2100 2960 INPUT "Y-Faktor e wrl 

2600 POKE FR, VAL (C$) - 1 2970 I= ABS (I): IF I > 31 THENI =] 

2610 RETURN 2980 IF I=0 THENI=|] 

2620 REM arakakakakakak aka 2990 POKE YF,I 

2630 HOME 3000 REM 3a ak ak ak ak ak aka ak ak ak ak ak aka 

2640 PRINT "<1> Seite 1": PRINT 3010 IF PEEK (DI) = O0 THEN BT = PEEK (XF) * ( PEEK (RI) 
2650 PRINT "<2> Seite 2": PRINT + PEEK (RI + 1) *« 7 - PEEK (LE) -— PEEK (LE + 1) « 
2660 GOSUB 2100 7+]) 

2670 POKE PA, VAL (C$) - 1 3020 IF PEEK (DI) l THEN BT = PEEK (YF) * ( PEEK (BO) 


2680 RETURN + PEEK (BO + 1) « 7 - PEEK (TP) -— PEEK (TP + 1) « 


2690 RIM 3 akakakeakakeakeale ak ak ak akeale ak ak ak aka 7+]1) 

2700 HOME 3030 BT = (BT + PEEK (RD)) *« PEEK (RF) 
2710 INPUT "Wiederholungsfaktor : ";I 3040 POKE BY + 1, INT (BT / 256) 

2T20O I= ABS (I): IF I> 255 THENI=|1 3050 POKE BY,BT - INT (BT / 256) * 256 
2730 IF I=0 THENI=] 3060 RETURN 


POKE RF,I 


“„APPLEN“ Sie Ihren Drucker auf! 


Kennen Sie das nicht auch?! 
Sie brauchen ein Zeichen und es ist nicht da. 


m ++ kr EL Send yh 
a DI ı I x 


Der DMP Charger liefert die Lösung. 


Mühelos können Sie Zeichen selbst erstellen und 
zum Apple Imagewriter oder DMP übertragen. 
Die Zeichen sind dann im Drucker gespeichert. In 
Ihrem Textprogramm stehen diese Zeichen mit 
Hilfe einer ESCAPE-Sequenz zur Verfügung. 
Das Programm arbeitet auf allen Apple//Typen 
und Kompatiblen (64 K). 


Preis: DM 198,- incl. MwSt. und ausf. Handbuch 
Übungsdiskette für ein Zeichen: DM 12,50 
Versand gegen Vorauskasse oder NN durch: 








" Der Vielseitige 
Apple IE 64 Ka 


DM 2.298,— 


Der Tragbare 
Apple IIC 128 KB 
30 Zeichen, Disk 


u.a. 
DM 3.298,— 


Der Schnelle 
Apple 
Matrixdrucker 
„Imagewriter" 
180 Z/Sek - Graphik 
DM 1.398,— 














Die Zuverlässige 
Original 


gin 
apple Disk 
DM 848,— 


Die Flache 
Slimline Disk mit 
Original apple Con- 
troler, Diskette und 
deutschem Handbuch 


DM 848,— 


Die Schöne 
Brother 
Tenanraddrurkar 
HR 15 


DM 1.398,— 


Die Sicheren 
Disketten Double 
Density in Zehner- 

pak.-Hardbox 
100 Stk DM 548,— 


Hard- und Software- 
Restposten günstig 
Paketpreise 
noch günstiger 


Dis umfangreichste 
PC-Hardware- 
Zıbehör gibt es für 
den apple 
Info anfordern 


Fra Haus, inkl. Mwst 

! Jühr Garantie - Rück- 

giberecht innerhalb 
von B Tagen 


Norbert Hunstig 
D<] Nottulner Landweg 81 
D-4400 Münster 
= 02534/7449 


Hamburger 
Computer @ 040 
Versand 7928226 


Postfach 610 125 


Bitte besuchen Sie unseren Stand auf der Apple-Expo im 
Rahmen der Orgatechnik in Köln. 
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Die Aktuelle Fachzeitschrft für 


Chemiker, Physiker, Mediziner, Ingenieure 
und Naturwissenschaffler 


AKTUELLE NACHRICHTEN 


INFORMATIONEN über 
NEUE PRODUKTE 





ANKÜNDIGUNGEN von 
VERANSTALTUNGEN 


mit Schwerpunkt auf Fortbildungs- 
veranstaltungen 


PROGRAMME 


Programme für Labor- 
anwendungen werden voll- 
ständig aufgelistet und 
erläutert 


WISSENSCHAFTLICHE 
ORIGINALBEITRÄGE 


und Kurzmitteilungen über den 
Einsatz von Computern im Labor- 
Anwenderbereich 


HARDWARE- und 
SOFTWARELÖSUNGEN 


SERIEN 


z.Zt. laufen Serien über Interfacing, 
Personal Computer im Labor, 
Assemblersprache FORTH, gebräuch- 
liche Techniken der Datenanalyse 


BUCHBESPRECHUNGEN 


Bestellcoupon ausschneiden und einsenden er 


CAL — Computer-Anwendung im Labor, Vertriebsservice, 
im Weiher 10, 6900 Heidelberg 


Ja, ich möchte 
| 1 Probeheft CAL 


Re Abonnement/s für 1985 
zum Preis von DM 60,- incl. Mwst., 
zzgl. Versandspesen 


Die Bestellung kann ich innerhalb von 7 Tagen schriftlich 
beim Verlag widerrufen 
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Meine Anschrift: 


Datum 


Unterschrift 


REVIEWS 









Turbo-Pascal 
Schritt für Schritt 





Dr. Ekkehard Kaier 


Das TURBO-PASCAL von „Borland Inter- 
national“ zeichnet sich durch einfache 
Handhabung, Schnelligkeit und einen 
günstigen Preis aus. Mit dem folgenden 
Artikel wenden wir uns insbesondere an 
den „PASCAL-Einsteiger“. 


1. Programmerstellung in 11 
Schritten 


Voraussetzung: CP/M gestartet, TURBO- 
Diskette Seite 1 in Laufwerk A: eingelegt, 
am Bildschirm steht das CP/M-Promptzei- 
chen. 


Schritt 1: Installation des Systems durch 
File TINST 


— TINST eintippen, um das Installations- 
programm zu starten. 


— S eintippen für S)creen Installation. 
Dann eine der im Menü gezeigten Num- 
mern eingeben, z.B. 26 für Zenith. 

— Eine C)ommand Installation ist bei der 
für den Apple Il gelieferten Diskette nur 
erforderlich, wenn die Steuerkommandos 
für den Editor geändert werden sollen. 

— Mit Q für Quit das Programm TINST 
verlassen. 


Schritt 2: System aktivieren durch File 
TURBO 


— TURBO eintippen, um das Minimal-Sy- 
stem mit Editor, Compiler und Run-Time- 
Bibliothek zu laden. 

— Frage „Include error messages (Y/N)?“ 
mit „N“ beantworten. Damit werden für 
Fehler nur deren Nummern, nicht aber 
deren Texte genannt (bei Antwort „Y“ 
würde das File TURBO.MSG geladen, was 
1.5 KBytes an Platz kostet). 

— Am Bildschirm steht das folgende 
Hauptmenü: 


Logged drive: A 

Work file: 

Main file: 

Edit Compile Run Save 

eXecute Dir Quit compiler Options 


Text: O bytes (71F1-71F1) 
Free: 22036 bytes (71F2-C806) 


Angeboten werden die 11 Befehle L, W, 
M, E,C,R,S,X, D, Q und ©. Durch 
Eintippen dieser Buchstaben werden sie 
ausgeführt. 


Schritt 3: Workfile benennen durch Befehl 
W 


— Im Hauptspeicher wird eine Arbeitsdatei 
(Workfile) verwaltet, auf die sich Eingeben 
(Edit bzw. E), Übersetzen (Compile bzw. 
C), Ausführen (Run bzw. R) und Spei- 
chern (Save bzw. S) beziehen. Das Work- 
file (es gibt nur eines) ist derzeit leer (sie- 
he Hauptmenü oben). 

— W für Workfile eintippen und auf die 
Frage „Work file name:“ den Programm- 


Yprscalgg 


namen ERSTPROG eingeben. Unser er- 
stes Programm soll also ERSTPROG 
heißen. 

— Die Ausgabe von „Loading A:ERST- 
PROG.PAS“ und „New File“ besagt, daß 
im Laufwerk A: derzeit kein File dieses 
Namens gefunden wurde und deshalb ein 
neues File im Hauptspeicher eingerichtet 
wird. 

— Nach der Eingabe von Return erscheint 
wieder das Hauptmenü. Freier Speicher- 
platz nun 22035 Bytes (ein Byte wurde für 
den Eintrag des Programmnamens ver- 
braucht). 


Schritt 4: Programmtext eingeben durch 
Befehl E 


— E eintippen: Der Editor wird aufgerufen, 
um die Eingabe unseres Programms zu 
überwachen. 

— Oben am Bildschirmrand erscheint diese 
Statuszeile: 
Line 1 Col 1 
PROG.PAS 
Nach Line bzw. Col wird die Zeilen- bzw. 
Spaltennummer des Cursors angezeigt. 
„Insert“ heißt, daß unsere Texteingabe 
eingefügt wird (am Ende oder dazwi- 
schen). Tippen wir Ctrl-V, erscheint statt 
„Insert“ der Hinweis „Overwrite“: Unsere 
Texteingabe überschreibt dann den bishe- 
rigen Text. Erneutes Tippen von Ctri-V 
wechselt wieder zu „Insert“. 

— Wir tippen den folgenden Programmtext 
mit 10 Zeilen ein: 


Insert Indent A:ERST- 


PROGRAM ERSTPROG; 
VAR 

ZAHL: INTEGER; 

BEGIN 

WRITELN (Welche Zahl?’); 
READLN (ZAHL); 
ZAHL:=ZAHL+5; 

WRITE (Erhöhte Zahl: ’); 
WRITELN (ZAHL) 

END. 


Wichtig: „;“ am Zeilenende, einfache statt 
doppelte Anführungszeichen sowie Punkt 
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nach END. Am Ende jeder Zeile Return 
tippen. 

— Abschließend verlassen wir den Editor 
durch Eintippen von Ctrl-K Ctrl-D. Am 
Bildschirm steht wieder das Hauptmenü 
(ggf. nochmals Return tippen). 

—- Ein Tip: Falls ein Apple Il benutzt wird, 
bei dem die Umlaute ä, ö, ü und das ß über 
Ctri-Tasten erzeugt werden, sind diese 
Otrl-Tasten zur Steuerung des Editors na- 
türlich gesperrt. 

Oft zählt dazu auch das Ctrl-K für die 
„eckige Klammer“. In diesem Fall müssen 
Sie über das Installationsprogramm TINST 
die Kommandos neu festlegen (z.B. Ctri-H 
Ctrl-D zum Verlassen des Editors anstelle 
von Ctrl-K Ctri-D). 

— Unten im Hauptmenü wird jetzt ange- 
zeigt, daß sich der im Hauptspeicher freie 
Speicherplatz vermindert hat: 


Text: 166 bytes (71F1-7297) 
Free: 21870 bytes (7298-C806) 


Schritt 5: Workfile auf Diskette speichern 
durch Befehl S 


— Bei Stromausfall wäre alle Arbeit um- 
sonst. Durch Eintippen des Befehls S 
speichern wir den Inhalt des Workfiles un- 
ter seinem Namen ERSTPROG auf Disket- 
te ab. 

— Die Ausgabe „Saving A:ERSTPROG- 
.PAS“ besagt, daß das Programm ERST- 
PROG als Pascal-Quellenprogramm (des- 
halb die Dateitypbezeichnung PAS) in 
Laufwerk A: abgespeichert worden ist. 
Das Quellenprogramm nennt man auch 
Quellcode, Textfile oder Sourcefile bzw. 
Source. 

— Am Bildschirm steht wieder das Haupt- 
menü. 


Schritt 6: „Memory to Memory“ -Überset- 
zung durch Befehl C 


— Das als Quellcode im Hauptspeicher 
(genauer: im Workfile) stehende Pro- 
gramm ERSTPROG muß nun in einen Ob- 
jektcode übersetzt bzw. compiliert wer- 
den. Erst danach kann das Programm aus- 
geführt werden. 

— Wir tippen den Befehl C ein, und der 
Compiler als Übersetzungsprogramm 
meldet sich wie folgt: 


Compiling 

10 lines 

Code: 125 bytes (7299-7316) 
Free: 22762 bytes (7316-CC00) 
Data: 6 bytes (CC00-CCO6) 


32 


Es wurden also alle 10 Programmzeilen 
fehlerlos übersetzt. Die Angaben in Klam- 
mern geben die entsprechenden Adres- 
sen im RAM in hexadezimaler Schreibwei- 
se wieder. 

— Im Hauptspeicher befindet sich nun ne- 
ben dem Quell- auch das übersetzte Ob- 
jektprogramm (auch Objektcode, Zielpro- 
gramm oder Maschinencode genannt). 
Deswegen die Bezeichnung „Memory to 
Memory“-Übersetzung (Memory für 
Hauptspeicher). 


Schritt 7: Programmausführung durch Be- 
fehl R 


— Nach Eingabe von R (für Run) wird der 
übersetzte Objektcode zur Ausführung 
gebracht: 

Running 

Welche Zahl? 

1000 

Erhöhte Zahl: 1005 

— Wir geben nochmals R ein: 

Running 

Welche Zahl? 

2 

Erhöhte Zahl: 7 

— Das Programm kann also beliebig oft 
mittels R ausgeführt werden. 

— Findet der Befehl R)un kein Übersetzer- 
Programm, so leitet er automatisch eine 
Übersetzung (vgl. Schritt 6) ein. 


Schritt 8: Inhaltsverzeichnis durch Befehl 
D 


— Nach Eingabe von D (für Directory) wird 
folgendes Inhaltsverzeichnis der auf Dis- 
Kette gespeicherten Files ausgegeben: 


TURBO OVR 
TURBOMSG OVR 
TINST COM 
TINSTMSG OVR 
TURBO COM 
TINST DTA 
ERROR DOC 
TLIST COM 
ERSTPROG PAS 
ERSTPROG BAK 
Bytes Remaining on A: 39K 


— COM bedeutet „COMmand File“, OVR 
„OVeRlay“, DTA „DaTA“. Das Programm 
ERSTPROG ist zweimal gespeichert: mit 
der Filetyp-Bezeichnung PAS für „PAS- 
cal-Quellcode“ und BAK für „BAcK-up- 
Version des Quellenprogramms“. Nach 
jeder Eingabe des Befehls S (für Save) 


wird das aktuelle Workfile als „...PAS“ und 
das bisher auf Diskette abgelegte Workfile 
zur Sicherheit als „...BAK“ gespeichert. 

— Das Inhaltsverzeichnis zeigt uns, daß 
das übersetzte Workfile (es trägt den Na- 
men ERSTPROG.COM) noch nicht auf 
Diskette gesichert worden ist. Der Befehl 
S)ave speichert somit nur das Quellpro- 
gramm. 


Schritt 9: Compiler-Option ändern durch 
Befehl O 


— Nach Eintippen des Befehls O (für 
„compiler Options“) erhalten wir folgen- 
des Menü 

compile > Memory 

Com-file 

cHn-file 

Find run-time error Quit 

mit den 5 Options-Befehlen M, C,H, F und 
Q. 


— Der Pfeil nach „compile“ weist auf „Me- 
mory“: Das übersetzte Programm wird 
stets im Hauptspeicher abgelegt und 
durch den Befehl R)un dort aufgerufen. 
Man nennt diese Betriebsart „Alles im 
RAM“, „In Memory“ oder „Memory to 
Memory“ und benutzt sie während der 
Programmerstellung (siehe Schritt 6). 

— Wir geben den Befehl C ein: Damit wird 
das übersetzte Programm - also das Ma- 
schinenprogramm als Objektcode — vom 
Compiler automatisch auf Diskette gespei- 
chert, und zwar unter dem Namen des 
Workfiles mit der Typbezeichnung COM. 
Man benutzt diese Betriebsart „Memory to 
Diskette“ nur dann, wenn alle Testläufe 
fehlerfrei abgeschlossen sind. 

— Die Meldung 

Start address: 1076 (min 1D76) 

End address: C953 (max CCO06) 
informiert über Start- und Endadresse des 
compilierten Programms. 

— Mit Q kehren wir wieder ins Hauptmenü 
zurück. 


Schritt 10: „Memory to Diskette“ -Über- 
setzung durch Befehl C 


— Durch Eingabe von C (für Compile) 
übersetzen wir das Workfile erneut. Die 
Compiler-Meldung 

Compiling A:ERSTPROG.COM 

10 lines 

Code: 125 bytes (1D76-1DF3) 

Free: 43738 bytes (1DF3-C8CD) 

Data: 134 bytes (C8CD-C953) 

besagt, daß nun (anders als bei der „Alles 
im RAM“-Übersetzung von Schritt 6) der 
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erzeugte Code auf Laufwerk A: unter dem 
Namen ERSTPROG.COM gespeichert 
wurde. 

— Automatische Rückkehr ins Hauptmenü. 
— Zur Kontrolle lassen wir uns mit D das 
Directory zeigen. Drei „Versionen“ unse- 
res Programms ERSTPROG erscheinen: 
A: ERSTPROG PAS: ERSTPROG BAK: 
ERSTPROG COM 

Bytes Remaining on A: 31 K 

— ERSTPROG.PAS wurde zuletzt mittels 
S)ave gespeichert und ERSTPROG.BAK 
durch das vorangegangene S)ave. ERST- 
PROG.COM hingegen wurde durch den 
Befehl C)ompile (mit Com-Option) auf 
Diskette gespeichert. 


Schritt 11: Programm kopieren in CP/M- 
Ebene 


— Mit Q verlassen wir das TURBO-System, 
um mit dem Befehl PIP das soeben erstell- 
te Programm auf eine Anwenderdiskette 
zu kopieren. 

— Mittels PIP B:=A:ERSTPROG.PAS ko- 
pieren wir das Quellprogramm von der 
Systemdiskette in Laufwerk A: auf eine 
(zuvor durch FORMAT leer formatierte) 
Anwenderdiskette. 

Mittels PIP B:=A:ERSTPROG.COM ko- 
pieren wir den Objektcode. 

— Mittels ERA A:ERSTPROG.x löschen wir 
alls drei Versionen unseres ersten Pro- 
gramms auf der TURBO-Systemdiskette, 
um Platz zu schaffen für weitere Entwick- 
lungen. 

Ein Löschen von Files ist im TURBO-Sy- 
stem selbst (noch?) nicht möglich. 


Nach dem Durchlaufen der Schritte 1 bis 
11 liegt unser erstes Anwenderprogramm 
namens ERSTPROG getestet auf Diskette 
vor. Soll ein weiteres Programm erstellt 
werden, kehren wir zu Schritt 3 zurück, um 
das Workfile neu zu benennen. 


2. TURBO-PASCAL und UCSD- 
PASCAL 


Das „Apple II Pascal 1.1” bzw. das 
„UCSD p System IV.O“ sind die auf dem 
Apple II mit Abstand am weitesten verbrei- 
teten PASCAL-Systeme. Im folgenden 
stellen wir die wesentlichen Unterschiede 
zum TURBO-PASCAL gegenüber: 


a) Betriebssystem: 

TURBO wird in verschiedenen Versionen 
angeboten. Auf Apple Il arbeitet es unter 
CP/M 2.2. Eine Z-80-Karte ist somit erfor- 
derlich. UCSD beinhaltet ein eigenes Be- 
triebssystem mit abgeschlossener Pro- 


grammierumgebung. E “ & 6 ® 


b) Übersetzung der Programmiersprache: 
TURBO hat einen Native-Code-Compiler, 
der den Programmtext als Quellcode in 
direkten Maschinencode übersetzt. Des- 
halb die unterschiedlichen TURBO-Ver- 
sionen für Z-80, CP/M 86, MS-DOS usw. 
UCSD dagegen erzeugt aus dem Quellco- 
de (Textfile genannt) als Zwischenform 
den p-Code (Codefile genannt), der erst 
während der Ausführung interpretiert wird. 
P-Code kann als Maschinencode für eine 
virtuelle Maschine aufgefaßt werden; der 
Apple II wird nur als Gast-Computer (sog. 
Host) angesehen. 


c) Systemumfang: 

Das TURBO-System findet auf einer (z.B. 
für IBM PC) bzw. auf zwei Disketten (z.B. 
Z-80-Version für Apple Il) Platz. Das 
UCSD-System umfaßt drei oder mehr Dis- 
ketten (z.B. SYSTEM1:, SYSTEM2:, 
CODE: und UTILITY: beim UCSD IV.O). 


d) Anzahl der Diskettenlaufwerke: 

TURBO kann mit einem Laufwerk betrie- 
ben werden. Das (Minimal-) System mit 
Compiler, Editor und Run-Time-Bibliothek 
beansprucht nur ungefähr 28 KBytes (File 
TORBO.COM). Für UCSD sind zwei Lauf- 
werke unbedingt erforderlich. 


e) Editor: 

Der TURBO-Editor orientiert sich an der 
Wordstar-Bedienung. Die Editor-Steuerta- 
sten können jedoch leicht angepaßt wer- 
den: Falls man z.B. das von Applesoft- 
BASIC her gewohnte Ctri-| für „nach 
oben“ beibehalten möchte, kann man dies 
über das Installationsprogramm TINST 
leicht (da menügesteuert) tun (das Ctrl-E 
vom Wordstar in Otrl-I austauschen). Der 
UCSD-Editor arbeitet weitgehend ohne 
Ctrl-Taste (Ausnahme: Ctrl-C für „Ende“). 


f) Dateien auf Diskette: 

TURBO kann Dateien (Files) auf Diskette 
erzeugen, nicht aber löschen. Zum Lö- 
schen muß TURBO mit Q verlassen wer- 
den, um dann auf der CP/M-Ebene die 
entsprechenden Files zu löschen und 
dann wieder ins TURBO-System zurück- 
zukehren. In UCSD können Dateien er- 
zeugt und gelöscht werden (über den Fi- 
ler). 


9) Anweisungen von PASCAL: 

Beide Sprachen gehen über das Stan- 
dard-PASCAL (Jensen/Wirth) hinaus und 
ähneln sich im Befehlsvorrat (z.B. Daten- 
typ STRING) weitgehend. UCSD kennt 
GET und PUT für den Dateizugriff, wäh- 
rend TURBO dafür die erweiterten Funk- 
tionen READ und WRITE vorsieht. 
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h) Arbeitsgeschwindigkeit: 

Da TURBO echten Maschinencode er- 
zeugt, arbeitet es wesentlich schneller als 
UCSD, das den erzeugten p-Code noch 
interpretieren muß. 


Die Gegenüberstellung zeigt, daß TUR- 
BO-PASCAL zumindest für den Einsteiger 
und Preisbewußten geeignet ist, PASCAL 
zu erlernen. 


3. TURBO-PASCAL und BASIC 


BASIC ist für die meisten die Einstiegspra- 
che. Werden die Programme umfangrei- 
cher, wünscht man sich PASCAL: Das 
selbstdokumentierende Listing und der 
modulare, strukturierte Aufbau erleichtern 
die Problemlösung ganz wesentlich. Daß 
dieser Wunsch oft unerfüllt bleibt, liegt we- 
niger an der Programmiersprache selbst 
als an der umständlicheren Handhabung 
des Systems: 

Das BASIC-Programm tippt man einfach 
ein, um es nach Testlauf und Korrektur auf 
Diskette zu speichern. Der BASIC-Inter- 
preter „übersetzt“ das Programm dabei 
bei jedem Lauf neu. 

Zur Eingabe des PASCAL-Programms 
hingegen muß man einen Editor als Über- 
wachungsprogramm laden. Später muß 
man einen Compiler als Übersetzungspro- 
gramm aktivieren, der aus dem Pro- 
grammtext einen Programmcode in Ma- 
schinensprache erzeugt. Dann erst kann 
das Programm ausgeführt werden. Tritt 
nun ein Fehler auf (bei der Übersetzung 
und/oder der Ausführung), muß man wie- 
der den Editor laden, um den Programm- 
text zu korrigieren. Diese Arbeitsfolge 
„Editieren - Compilieren - Ausführen“ und 
das damit verbundene Aufrufen von Sy- 
stemprogrammen ist bei vielen PASCAL- 
Systemen sehr kompliziert (z.B. bei PAS- 
CAL MT+), bei nur wenigen Systemen 
relativ schnell erlernbar (z.B. bei UCSD- 
PASCAL). Bei TURBO-PASCAL dagegen 
ist der Umgang mit dem System fast so 
einfach wie mit Applesoft-BASIC oder 
MBASIC unter CP/M. Zudem kommt man 
mit einem Laufwerk aus, da auf der Disket- 
te das gesamte TURBO-System mit Com- 
piler, Editor und Workfile (Programm als 
unübersetzter Text sowie als übersetzter 
Code) Platz findet. Aus diesen Gründen 
macht es TURBO-PASCAL auch dem zö- 
gernden BASIC-Anhänger leicht, mit PAS- 
CAL zu arbeiten. 
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ProDOS-Patch 
für geänderte 
F8-ROMs 



















Das unveränderte ProDOS-Betriebssy- 
stem 1.0.1 läuft nur auf den Originalgerä- 
ten Apple II Plus, Apple Ile und Apple Ilc. 
Bei Apple-Nachbauten sind je nach Ände- 
rung des F8-ROMs = des Monitor-ROMs 
= des Bereiches $F800-$FFFF mehr oder 
weniger umfangreiche Modifikationen 
(„Patches“) des Betriebssystems erfor- 
derlich. 





Wer sich hingegen z.B. in seinen Original 
Apple II Plus einen Kleinschreibumrüst- 
satz mit entsprechend geändertem FB8- 
ROM hat einbauen lassen, wird unter Um- 
ständen ebenfalls zu seiner Überraschung 
feststellen, daß ProDOS nicht bootet. Dies 
rührt u.a. daher, daß Applehändler oder 
deren Vorlieferanten im F8-ROM oft mehr 
ändern, als erforderlich ist. Normalerweise 
müßte zur softwaremäßigen Realisierung 
der Kleinschreibung nur die Stelle $FD82 
geändert werden: 

Original: $FD82: 29 DF AND #$DF 
Modifiziert: $FD82: 29 FFAND #$FF 


TER 





Dieser Patch, der sich auch im Apple Ile 
ROM befindet und deshalb nicht überprüft 
wird, bewirkt, daß über die Tastatur einge- 
gebene Kleinbuchstaben nicht in Groß- 
buchstaben umgewandelt werden. Pro- 
DOS prüft u.a. das Versionsbyte bei Spei- 
cherstelle $FBB3 (enthält $06 für Apple Ile 
und IIc sowie $EA für II Plus) sowie den 
Namen „APPLE“ einschließlich Klammern 
ab $FB09. Im letzteren Fall wären z.B. 
zulässig: „APPLE“, „Apple“, „ApPLE“, 
also auch gemischte Groß- und Klein- 
schreibung, nicht dagegen „EXPL1“ o.ä., 
wie man es oft in illegalen Nachbauten 
findet. 


Wer besagte Schwierigkeiten auf einem 

Apple II Plus mit Kleinschreibumrüstsatz 

hat, der modifiziere zunächst das BASIC- 

‚SYSTEM auf einem Apple Ile wie folgt: 

. BLOADBASIC.SYSTEM, A$2000, TSYS 

. CALL -151 

. 2054: A9 62 8D 98 BF 

. Gtrl-C 

. UNLOCK BASIC.SYSTEM 

. BSAVE BASIC.SYSTEM, A$2000, 
L$2800, TSYS 

7. LOCK BASIC.SYSTEM 

Die hexadezimale Folge A9 62 8D 98 BF 

besagt LDA #$62 STA $BF98. $62 steht 

für Apple Il Plus mit 64K RAM und 80- 

Zeichenkarte. 


DO POD— 


Falls das BASIC.SYSTEM gleich gar nicht 
eingeladen wird, muß auch das später in 
der Language Card befindliche PRODOS 
gepatcht werden: 

1. BLOAD PRODOS, A$2000, TSYS 

2. CALL -151 


rü Apple Il, Ile: 


Z-80-Karte 
Disk - Interface 





99,—DM 80 Zeichen -Karte 


3. 23B4: A2 EAEA 

4. 2659: EAEA 

5. Ctrl-C 

6. UNLOCK PRODOS 

7. BSAVE PRODOS, A$2000, L$3C00, 
1919 

8. LOCK PRODOS 

Der Patch bei $23B4 ersetzt LDA $FBB3 

durch LDX #$EA, wobei $EA das Erken- 

nungsbyte für den Apple Il Plus darstellt. 

Der Patch bei $2659 legt die Prüfroutine 

für den Firmennamen „APPLE“ lahm. 


Normalerweise würde man zur Ermittlung 
seines rechtmäßigen Firmennamens den 
String „APPLE“ im Programm „PRO- 
DOS“ ablegen und dann mit der entspre- 
chenden F8-ROM-Stelle ab $FBO9 direkt 
vergleichen, z.B. durch CMP $FB09, X 
unter Berücksichtigung der möglichen 
Kleinschreibung von „Apple“ statt „AP- 
PLE“. Statt dessen greift der Programmie- 
rer der Firma Apple zu folgenden Maß- 
nahmen: 

a) Zunächst wird das Teilprogramm 
$2401-$2447 in die Zero-Page ab $0080 
geschoben. 

b) Dann werden in die Speicherstellen 
$000A-$000B die Werte $0A und $00 ge- 
pokt, also so: 

000A: OA 00 

c) Nun wird die sich ursprünglich ab 
$243A befindliche Subtraktionsroutine 
aufgerufen, die $0500 von $000A mit Un- 
derflow abzieht, was $FBO9 ergibt. 

d) Schließlich wird ab $263D mit LDA 
($0A), Y der String ab $FBO9 geladen und 
aufgrund undurchsichtiger Operationen 
geprüft. 


Komp 48 





PRodos 4 


Wie gesagt, normalerweise. Daß man zu 
derart pathologisch erscheinenden Mani- 
pulationen greifen muß, um seinen recht- 
mäßigen Firmennamen vor Nachbauern zu 
schützen, zeigt, daß die Zeiten alles ande- 
re als normal sind. Um dies besser zu 
verstehen, muß man Beispiele aus ande- 
ren Bereichen des Urheber- und Namens- 
rechts zitieren. Nehmen wir an, Goethe 
hätte in panischer Angst gelebt, daß Schil- 
ler Goethes „Faust“ unter Schillers Na- 
men hätte veröffentlichen können. Was 
hätte er dann in seiner krankhaften Phobie 
tun können? Seinen Namen chiffriert auf 
den „Faust“ drucken lassen? Oder über- 
haupt den ganzen „Faust“ chiffrieren? All 
dies mutet wenig normal an und belegt auf 
das anschaulichste, daß die Mikrocompu- 
ter-Industrie noch lange nicht erwachsen 
geworden ist. Nachbauer, die das Wort 
„APPLE“ durch „EXPL1“ o.ä. ersetzen, 
wecken die Erinnerung an die Kolonialge- 
schichte von dem Neger auf der Baum- 
wollplantage, der einen Zylinder auf das 
Glasauge seines Vorarbeiters legte, damit 
er von ihm nicht gesehen werden konnte. 
Offenbar fehlt vielen Nachbauern die Ein- 
sicht, daß der Inhalt des F8-ROMs, falls er 
ein urheberrechtlich schutzfähiges Werk 
darstellt, nicht seine Schutzfähigkeit da- 
durch verliert, daß man den Namen „AP- 
PLE“ entfernt, wie ja auch Goethes 
„Faust“ weiterhin Goethes „Faust“ bleibt, 
auch wenn man „GOETHE“ auskratzt 
oder durch „Exemplar 1“ ersetzt... 

us 


Die... Kompatiblen 


995,— DM 


48 K, 6502 ohne Firmware 





Komp 64 
159,— DM 





PAL-Karte - 
16K-RAM -Karte 109,— DM 





109,— pm (Autoswitch) 


109,— pm Centronics-Interfacel 129,— DM 
2. (mit Kabel für EPSON) 








RS 232-Karte 119, om 6809-Karte 


399,— DM 








8088 - Karte 


 759,— DM 





Eprommer (4, 8, 16K) 149,— DM 





64 K, 6502, Z-80, 15er-Block 
ohne Firmware 


______ 1180,— 

Komp 648 1330,— DM 
wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen. 


Motherboard 48K 
8 Slots, alle IC's gesockelt 





499,— DM 





Speech -Karte 


\  88,— DM 
Apple -Info 1,— DM (Porto) 


128K-RAM -Karte 488,— DM 
AD-DA-Karte 119,— DM 


139,— DM 
knackt geschützte Programme) 








agen 
. üleramit 








ohne Firmware, fertig geprüft 


>» Motherboard 64K 639,— DM 
wie oben, mit 6502 und 
Z 
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Um mit „PRODOS“ eine Diskette forma- 
tieren zu können, gibt es zwei Möglich- 
keiten: 


a) den „FILER“ von Apple oder 
b) das Programm „PRODOS.INIT" von 
U.Stiehl verwenden. 


Hans-Georg Hüneke 
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Patch für 
PRODOS.INIT 80 Spuren 


Das Programm unter Punkt (a) hat leider 
den Nachteil, daß nur 35-Track-Disketten 
formatiert werden können. Das Programm 
unter Punkt (b) — gelistet in „Apple Pro- 
DOS, Band 1“ — kann zwar Disketten bis 
zu 255 Tracks initialisieren, konfiguriert 
diese Disketten jedoch ab 64 Spuren nicht 
mehr einwandfrei. Es hat sich nämlich in 
der Routine zur Umrechnung der Tracks in 
Blocks ein kleiner Fehler eingeschlichen. 
Verwendet man die Original-Routine aus 
dem genannten Buch, dann kann man, wie 
auch dort erwähnt, keine Disketten mit 
mehr als 64 Spuren oder 512 Blocks anle- 
gen. Das nun unten aufgeführte Assem- 
blerprogramm ist jetzt in der Lage, eine 
Diskette mit 2040 Blocks (1020K) anzule- 
gen. Vorausgesetzt, die angeschlossene 
Hardware macht mit. Ein Laufwerk vom 
Typ TEAC FD-55E/55F ist somit sehr 
leicht auf eine Kapazität von 640 Blocks 
(320K) zu bringen. Selbstverständlich las- 
sen sich auch andere 35/40/80-Spur- 
Laufwerke hiermit formatieren. 


Wenn man das kleine Basicprogramm zur 
Initialisierung seiner Disketten verwendet, 
ist es sehr leicht, sich eine Diskette nach 
den eigenen Wünschen zu konfigurieren. 
Man denke nuran das Programm „MOUSE- 
PAINT“, wo man auf der Bootdiskette nur 
noch zusätzlich 2 erstellte Bilder abspei- 
chern kann. Kopiert man hier die Original- 
diskette auf eine 320K-Disk, bleiben einem 
immer noch 394 Blocks. 


Im folgenden Teil wird nun erklärt, wie das 
Programm „PRODOS.INIT" geändert 
werden muß: 


a) Man lädt „PRODOS.INIT“ mit dem Be- 
fehl BLOAD PRODOS.INIT, A$8000. 
b) An den Speicherstellen $8814 und 
$8980 wird vom Monitor aus (nach CALL- 
151) folgende Änderung eingegeben: 


8814: 40 80 89 28 43 29 20 20 
881C: 48 47 48 00 00 00 00 00 
8824: 00 00 00 00 00 00 00 00 
882C: 00 00 00 

8980: AD 06 80 8D 2D 88 A9 00 
8988: 8D 2E 88 A2 04 ODE 2E 88 





8990: CA FO OB DE 2D 88 90 F5 
8998: 2E 2E 88 4C 90 89 60 


c) BSAVE PRODOS.INIT, A$8000, L$OEOO 


Nach dieser Prozedur wird noch das ent- 
sprechende Applesoft-Programm einge- 
geben. Der Source-Code des Assembler- 
Patch-Programms sowie das Basic-Pro- 
gramm sind nachfolgend gelistet. 


Vergleichende Tests haben ergeben, daß 
sowohl bei den Apple Disk Il wie auch bei 
den TEAC FD-55F Laufwerken die maxi- 
male Einlesegeschwindigkeit bei ca. 8400 
Bytes pro Sekunde liegt. 


Anmerkung des Redakteurs: Ich freue 
mich immer, wenn jemand einen Bug 
(oder auch mehrere) in meinen Program- 
men findet, zeigt dies doch immerhin, daß 
man an den Programmen interessiert ist, 
sonst würde man sich nicht die Mühe ma- 
chen, den Fehler zu suchen. Ein bekann- 
ter amerikanischer Autor — der Name tut 
hier nichts zur Sache — hatte einmal im 
Scherz gesagt, er würde absichtlich einige 
Fehler stehenlassen „...to keep the read- 
ers happy and alert“. 

Was das PRODOS.INIT-Programm an- 
langt, so handelt es sich im übrigen um 
eine teils gekürzte und teils erweiterte 
RWTS des alten DOS 3.3. Als ich diese zu 
einer ProDOS-Formatierungsroutine um- 
schrieb, verfügte ich nur über die alten 
DISK-Il-Laufwerke, bei denen ich nur mit 
der 36. Spur experimentieren konnte. Als 
ich dann bei einem Apple-Händler an 80- 
Track-Cumana-Laufwerken einen endgül- 
tigen Test durchführte, zeigte sich der 
Fehler in der Multiplikationsroutine. Diese 
hatte ich seinerzeit „auf die schnelle“ ge- 
strickt, ohne sie gesondert auszutesten. 
Damit habe ich selbst gegen meine Pro- 
grammierer-Maxime verstoßen, die mir 
sonst heilig ist. Diese besagt: „Teste je- 
des Teil-Modul für sich, bevor Du alle Mo- 
dule zum Gesamtprogramm zusammen- 
fügst“. 





PRO 





100 D$ = CHR$ (4) 300 TRACK = 32774: REM $8006 
110 PRINT D$"BLOAD PRODOS.INIT" 310 REM 
120 REM 320 POKE SLOT,S 
130 REM 330 POKE DRIVE,D 
140 REM 340 SELUNIT = PEEK (49289 + S « 16 + D) 
150 HOME 350 REM 
160 PRINT : PRINT : PRINT 360 REM 
170 INPUT "Wieviele Spuren ? ";TRACK$ 370 REM 
180 IF VAL (TRACK$) < 1 OR VAL (TRACK$) 380 POKE TRACK, VAL (TRACK$) 
> 255 THEN 460 390 REM 
190 PRINT : PRINT 400 UNITEIN = PEEK (49289 + S * 16) 
200 INPUT "Welcher Slot ? ";S 410 CALL INIT 
210 IFS < 1 0ORS > 7 THEN 460 420 END 
220 PRINT : PRINT 430 REM 
230 INPUT "Welches Drive ? ";D 440 REM 
240 IF D< 1 OR D > 2 THEN 460 450 REM 
250 REM 460 PRINT : PRINT 
260 REM 470 PRINT "Falsche Eingabe, bitte nochmal!" 
270 INIT = 32768: REM $8000 480 FOR I = 1 TO 2000: NEXT 
280 SLOT = 32771: REM $8003 490 GOTO 150 


290 DRIVE = 32772: REM $8004 


l 33a ak a aa a ae ae ak a ea a aa aaa aaa 
2 . . 
3 ” TRACK/BLOCK - CONVERTER ” 
4 . * 
5 * von H.G.Hüneke 1984 * 
6 ” * 
7 * Diese Routine rechnet für das Pro- * 
8 * gramm "PRODOS.INIT', aus dem Buch * 
9 * 'APPLE PRODOS für Aufsteiger', * 
10 * die entsprechenden Blöcke/Diskette * 
21 * aus, um die formatierte Diskette mit * 
1% * der notwendigen Information in der * 
13 * Directory zu versorgen. * 
14 . ” 
15 3 33 ak ae ak a ea ak aaa aaa aaa 
16 

E71 

18 BLOCK EQU $8006 

19 

20 ORG 8814 

el * 


22 ale 33 ale aa a3 aa a ak ea aa aaa 
23 * Sprung in die neue Block-Routine. %* 
24 3433433 a3 aa aa a ea aa aaa aa aaa 





25 
8814: AC 80 89 26 JMP CALCBLCK 
27 
8817: C8 FD EE 28 ASC "Hüneke84'" 
881lA: ES EB ES B8 B4 
29 
88lF: 00 00 00 30 HEX 00000000 ;Alte Block-Ermittlungsroutine löschen. ; o i 
nn = 00 00 31 HEX 00000000 ai stik-K ” 
8826: 00 Set mit FTZ-Nr. 
8827: 00 00 00 32 HEX 000000000000 
882A: 00 00 00 
882D: 00 00 33 BLOCKLSB HEX 0000 
34 _BLOCKMSB EQU BLOCKLSB+1 
35 
36 ORG $8980 
37... A4eakeaeak ek ae ea ae ae ae ae ae ae ae ae ae ae ae ae ak ea ea ae aa aa aaa 
38 * Initialisieren des Block-Zählers. % 
39 3a ee ee ae ae aaa aaa aka ee Für C 64 Für Apple Il 
40 Koppler Koppler 
8980: AD 06 80 41 CALCBLCK LDA BLOCK ;Multiplikand mit den Diskette Diskette 
8983: 8D 2D 88 42 STA BLOCKLSB Kabel Kabel 
8986: A9Y 00 43 LDA #0 ‚entsprechenden Spuren initialisieren. Stecker . Stecker 
8988: 8D 2E 88 44 STA BLOCKMSB anschlußfertig anschlußfertig 
898B: A2 04 45 LDX #4 ;Schleifenzähler für die Multiplikation mit 8. Handbuch Handbuch 
46 Best.-Nr. 8560 Best.-Nr. 8561 
AT 36a ak ak ae ek ea ea ae ak ae a ae ae ae ae ea aaa aaa DM795,- DM 795,- 
48 #* Berechnen der gesamten Blöcke. * in mr a u 
AI 3eakeakeaeake aaa ak ae aka aka ae ak ae ak ae ak ae a ea ae a ae aa aa aaa TONACORD 
a0 2330 Eckernförde Tel. (04351) 4039 
898D: OE 2E 88 51 MULTMSB ASL BLOCKMSB ;High-Byte mit 2 multiplizieren. Sauerstr. 13 Telex 174351130 
52 . 
8990: CA 53 MULTLSB DEX ‚Zähler für die Multiplikation mit 8. 
8991: FO OB 54 BEQ MULTSEND 
8993: OE 2D 88 55 ASL BLOCKLSB ;Low-Byte mit 2 multiplizieren. 
8996: 90 F5 56 BCC MULTMSB ;Wenn kein übertrag, Multiplikation mit 2. 
8998: 2E 2E 88 57 ROL BLOCKMSB ‚Übertrag ins High-Byte übertragen und verhindern, 
899B: AC 90 89 58 JMP MULTLSB ‚daß das High-Byte nochmals multipliziert wird. 
59 * 
899E: 60 60 MULTSEND RTS 
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B R 
DE il 


A 2 % 
Es wird die Aufgabe gestellt, die Prim- 
zahlen im Bereich von 2-8191 nach einem 
beliebigen Algorithmus in einer beliebigen 
Programmiersprache auf einem Apple 
II+/e/c in weniger als 0,45 Sekunden zu 
ermitteln. Der Schnellste erhält den 
ersten Preis. Mitmachen kann jeder Leser 
von „Peeker“, sei er Hobbyist oder Profi. 
Selbst die Apple-Mannschaft in München 


darf zeigen, wie schnell sie ist.... 
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1. Sieb des Eratosthenes 


Wohl jeder, der auf seinem Apple gele- 
gentlich „aus Spaß an der Freude“ pro- 
grammiert, hat sich schon irgendwann ein- 
mal mit der Berechnung von Primzahlen 
befaßt. Darüber hinaus benutzen viele 
Computer-Zeitschriften diese Berechnung 
als „Benchmark“, um die Leistungsfähig- 
keit unterschiedlicher Programmierspra- 
chen zu testen. Deshalb findet man in der 
einschlägigen Fachliteratur eine Fülle von 
Algorithmen und Programmvarianten zur 
Ermittlung der Primzahlen innerhalb eines 
vorgegebenen Intervalls. Das bekannteste 
und vielleicht schnellste Verfahren ist das 
Sieb des Eratosthenes, benannt nach dem 
gleichnamigen griechischen Gelehrten, der 
um ca. 200 v. Chr. als Mathematiker, Dich- 
ter, Astronom undBibliothekarin Alexandria 
wirkte. Wie viele geniale Entdeckungen ist 
das Sieb des Eratosthenes nicht nur extrem 
effizient, sondern auch ungewöhnlich ein- 
fach und deshalb für jeden Nicht-Mathema- 
tiker sofort einsichtig: 
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Primzahlen sind von O und 1 verschiedene 
natürliche Zahlen, die nur durch sich 
selbst ohne Rest geteilt werden können, 
also die Zahlen 2, 3, 5, 7, 11 usw. Die Zahl 
2 nimmt insofern eine Sonderstellung ein, 
als sie die erste und damit kleinste Prim- 
zahl ist. Ferner ist die Zahl 2 die einzige 
gerade Primzahl. Nehmen wir an, wir woll- 
ten die Primzahlen für das Zahlenintervall 
0-9 ermitteln. Da 0 und 1 per definitionem 
keine Primzahlen sind, brauchen wir uns 
nur auf das Intervall 2-9 zu beschränken. 
Die Eratosthenes-Methode geht dann 
nach folgendem, völlig formalistischem 
und damit quasi rein mechanischem Ver- 
fahren vor: 


Schritt 1: Zunächst markieren wir alle Zah- 
len im Intervall 2-9 (Untergrenze bis Ober- 
grenze) als potentielle Primzahlen, indem 
wir folgende Flag-Zuordnung vornehmen: 


23456789 
00000000 

0 = Primzahl (potentiell) 
1 = keine Primzahl 


Im Verlauf der weiteren Erörterung soll 
gelten, daß Flag O = Primzahl und Flag 1 = 
Nicht-Primzahl bedeutet. Statt dieser will- 
kürlich definierten Flags, die sich speziell 
für die computermäßige Aussiebung der 
Primzahlen eignen, könnte man auf dem 
Papier die später gefundenen Nicht-Prim- 
zahlen durchstreichen oder auf andere 
Weise markieren. 


Schritt 2: Nunmehr initialisieren wir einen 
Zähler auf die erste Zahl des Zahlen- 
strahls, also auf die Untergrenze (= 2). 


Schritt 3: Wir prüfen jetzt, ob die momen- 
tane Zahl (beim ersten Durchlauf Zahl 2) 
auf O gesetzt ist, d.h. als Flag = O hat. 
Wenn nein, gehen wir direkt zu Schritt 4. 
Wenn ja, haben wir eine Primzahl gefun- 
den und können damit alle Vielfachen der 
momentanen Primzahl bis zur Obergrenze 
auf 1 = Nicht-Primzahlen setzen. Im er- 
sten Durchlauf bezüglich der Zahl 2 sind 
dies die Zahlen 4, 6 und 8. 


Schritt 4: Nunmehr erhöhen wir den Zäh- 
ler um 1 und prüfen, ob der Zähler größer 
als die Obergrenze ist. Wenn nein, gehen 
wir zurück zu Schritt 3. Wenn ja, haben wir 
alle Primzahlen in dem vorgegebenen In- 
tervall ermittelt. 


Für den Zahlenstrahl 2-9 wären damit fol- 
gende Streichungen bzw. Flagsetzungen 
erforderlich: 
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Das obige Siebverfahren läßt sich auf ver- 
schiedene Weise verfeinern: 


a) Man könnte darauf verzichten, vorab 
alle Zahlen auf O = potentielle Primzahlen 
zu setzen. Statt dessen könnte man gleich 
mit der Primzahl 2 beginnen, diese selbst 
auf O setzen und sodann alle Vielfachen 
von 2 auf 1 = Nicht-Primzahlen sowie alle 
Nicht-Vielfachen von 2 auf O = potentielle 
Primzahlen setzen. 


b) Wie ersichtlich, finden bei dem Intervall 
2-9 nach der Zahl 3 keine weiteren Strei- 
chungen mehr statt. Es läßt sich mathema- 
tisch beweisen, daß die Streichung nur bis 
zur Quadratwurzel der Obergrenze durch- 
geführt werden muß, also hier bis zur Qua- 
dratwurzel von 9 = 3. Damit reduziert sich 
die Anzahl der erneuten Streichungen von 
bereits gestrichenen Nicht-Primzahlen 
ganz erheblich. 


c) Nehmen wir an, wir hätten gerade die 
Zahl 2 als Primzahl ermittelt und im An- 
schluß daran alle Vielfachen von 2 als 
Nicht-Primzahlen eliminiert. Nunmehr wä- 
ren wir bei der Zahl 3 angelangt, die wir 
ebenfalls — da noch nicht gestrichen bzw. 
auf 1 gesetzt - als Primzahl erkennen. Wir 
könnten nunmehr alle Vielfachen von 3, 
d.h. 6 und 9 streichen. Da jedoch alle 
Vielfachen von 2, d.h. alle geraden Zahlen 
außer 2, bereits gestrichen sind, brauchen 
wir bei der Zahl 3 nicht alle geraden Vielfa- 
chen von 3, also z.B. nicht Zahl 6, zu 
streichen, da diese geraden Zahlen ja be- 
reits gestrichen worden sind. Folglich kön- 
nen wir uns bei der Primzahl 3 statt der 
Streichung von 3+ (1x3), 3 + (2 x 3) 
usw. auf die Streichung von3+(1x*3x% 
2), 3+ (2 * 3x 2) usw. beschränken. Bei 
dem Intervall 2-9 wäre damit nur die 9 zu 
markieren, da die 6 bereits zuvor durch 2 
markiert worden ist. 

Bei der Primzahl 5 könnten wir dasselbe 
Verfahren wie bei der Primzahl 3 anwen- 
den, aso5+(1*x5x*2)= 15,5 +(2x*5x* 
2)=25,5+(3*5x*2)=35,5 +(4x*5* 
2) = 45. Wie ersichtlich, wären jedoch die 
Zahlen 15 und 45 bereits mit der Primzahl 
3 als deren Vielfache markiert worden. 
Folglich könnte man hier mit einem noch 
verzwickteren Algorithmus, der auf das 
Wissen der bereits abgehakten Primzah- 
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len 2 und 3 zurückgreift, die Zahlen 15 und 
45 überspringen. 


Das nachfolgende Applesoft-Programm 
berechnet die Primzahlen in dem Intervall 
2-8191 nach dem Eratosthenes-Verfah- 
ren. Zur genaueren Zeitmessung erfolgen 
insgesamt 256 Durchläufe. Zu diesem 
Zweck wird die Speicherstelle 768 
($0300) hochgezählt, da vor jedem Durch- 
lauf alle Variablen gelöscht werden. 

In Zeile 110 wird das Programm per Ta- 
stendruck gestartet. 

In Zeile 130 wird der Speicher gelöscht, 
dann in Zeile 140 die Quadratwurzel aus 
8191 ermittelt (= 90,50414), die zur Ver- 
meidung von Rundungsfehlern auf 91 er- 
höht wird. 

In Zeile 150 wird der Primzahlen-Array P% 
dimensioniert, womit zugleich alle Werte 
= Flags auf O gesetzt werden. (Schritt 1) 
Zeile 170-190 stellen die eigentliche Be- 
rechnung dar (Schritt 3). Dabei wird von X 
= 2 bis 91 hochgezählt (Schritt 2 und 4), 
wobei immer dann, wenn P%(X) = 0 ist, 
die Vielfachen von X bis zur Obergrenze H 
auf 1 = Nicht-Primzahlen gesetzt werden. 
Der Vergleich „IFX+X<H“=,IFS+S 
< H” in Zeile 180 könnte theoretisch ent- 
fallen. 

In Zeile 210 wird nach jedem Durchlauf am 
Bildschirm ein „P“ angezeigt. Nach 256 
Durchläufen wird in Zeile 240 ein Piepston 
zur Zeitmessung ausgegeben. Danach 
werden zur Kontrolle alle ermittelten Prim- 
zahlen sowie am Schluß die Summe aller 
Primzahlen (insgesamt 1028 Zahlen) geli- 
stet. 


100 REM !INTEGER« 

110 HOME: PRINT „PRIM-TEST“: PRINT 
„STOPPUHR!“: PRINT : GET X$ 
120 POKE 768,0: REM Zähler initialisieren 

130 CLEAR : REM Loop 

140 S = INT ( SQOR (8191)) + 1 

150 DIM P% (8191):H = 8191 

160 REM Berechnen 

170FORX=2TOS 

180 IFP%(X) =0 THENIFX+X<H 
THENFORY=X+XTOH 
STEP X:P%(Y) = 1: NEXT 

190 NEXT 

200 REM 256 Loops 

210 PRINT „P"; 

220 L = PEEK (768):L=L+ 1 

230 IFL < 256 THEN POKE 768,L: 
GOTO 130 

240 PRINT CHR$ (7): REM Piepston 

250 REM Anzeigen 

260 PRINT :A=0 

270FORX=2TOH: IFP%(X) =D THEN 
PRINTX:A=A+i1 
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280 NEXT : PRINT : PRINT „ANZAHL: “A 

290 REM 77 Sek. mit 1 MHz 6502 

300 REM 10 Sek. mit Tasc 1 MHz 6502 

310 REM 2.9 Sek. mit Tasc 3.5 MHz 
65C02C - beim Wettbewerb nicht 
erlaubt! 


2. Wettbewerbsbedingungen 


Allgemeine Aufgabenstellung: Es soll ein 
Primzahlen-Programm erstellt werden, 
das alle Primzahlen im Intervall von 2 bis 
8191 in weniger als 0,45 Sekunden auf 
einem normalen, d.h. nicht „frisierten“ 
Apple II+/lle/llc ermittelt. 


1. Jeder kann sich an dem Preisausschrei- 
ben beteiligen (mit Ausnahme der Redak- 
tion von „Peeker“), doch darf jeder nur 
eine einzige Lösung einsenden, die im 
übrigen alle 1028 Primzahlen von 2-8191 
in weniger als 0,45 Sekunden, d.h. ab 0,44 
abwärts, ermitteln muß. Um diese Zeit zu 
unterschreiten, muß man sich schon eini- 
ges einfallen lassen. Der Grund für diese 
hohe Programmgeschwindigkeit ist darin 
zu sehen, daß bereits sehr viele Erato- 
sthenes-Varianten publiziert wurden, auf 
die ein Teilnehmer natürlich zurückgreifen 
könnte. Unseres Wissens ist jedoch noch 
niemals eine Variante veröffentlicht wor- 
den, die eine halbe Sekunde deutlich un- 
terschreitet. Selbst das u.W. momentan 
schnellste Eratosthenes-Programm — er- 
schienen in „Apple Assembler — Tips und 
Tricks“ (Hüthig-Verlag) — bringt es nur auf 
0,55 Sekunden. Durch Festlegung des 
Zeitlimits dürfte gewährleistet sein, daß 
nur selbstentwickelte Lösungen einge- 
reicht werden. Unter Ausnutzung aller As- 
semblerkniffe läßt sich beispielsweise die 
sehr seriöse Programmvariante aus dem 
erwähnten Apple-Assembler-Buch ganz 
erheblich „tunen“, wobei an dieser Stelle 
verschwiegen sei, welche Zeitverbesse- 
rungen realisierbar sind. 


2. Die Primzahlen-Programme werden von 
uns auf einem normalen Apple Ile mit 1 
MHz 6502-Prozessor und Disk-Il-Lauf- 
werken getestet. Damit scheiden andere 
und/oder schnellere Prozessoren aus. Er- 
laubt sind alle Programmiersprachen oder 
Kombinationen von Programmiersprachen 
(z.B. compiliertes Applesoft plus reines 
Assembler usw.) sowie alle denkbaren 
Programmiertricks (z.B. selbstmodifizie- 
rendes Programm usw.). Nicht erlaubt sind 
Tricks, die mit dem Primzahlenprogramm 
nichts zu tun haben. Beispielsweise könn- 
te ein cleverer Programmierer auf den 





Trick verfallen, vor dem eigentlichen Pro- 
grammstart eine Hires-Grafik zu zeigen, 
die etwa den Bereich $2000-$3FFF (= 
8192 Bytes) ausblankt mit der Folge, daß 
man sich das Löschen des Primzahlen- 
Arrays sparen würde. 


3. Die eingereichte Lösung — bootfähiger 
Objekt-Code + kommentierter Quell-Co- 
de - soll sich auf einer normalen 5 1/4 Zoll 
Diskette für Disk-Il-Laufwerke befinden. 
Das Etikett ist mit der vollständigen Adres- 
se sowie mit der selbst gestoppten Durch- 
schnittszeit für 1 Durchlauf zu versehen. 
Alle eingereichten Disketten werden spä- 
ter wieder zurückgesandt. 


4. Da nicht jeder über eine Hardware-Uhr 
verfügt, muß das Programm folgende Zeit- 
messung per Stoppuhr zulassen: Ein kur- 
zes Menü soll 2 Optionen zulassen: A- 
Version mit 256 Durchläufen und B-Ver- 
sion mit 1024 Durchläufen. Die A-Version 
wird per Tastendruck gestartet (Stoppuhr 
läuft an), ruft dann das eigentliche Prim- 
zahlenprogramm 256 mal auf und wird mit 
einem Piepston beendet (Stoppuhr hält 
an). Der so ermittelte Wert (z.B. 97,1 oder 
77,8) wird auf einen durch 0,5 teilbaren 
Wert abgerundet (z.B. auf 97,0 oder 77,5), 
dann durch 256 geteilt und schließlich auf 
die zweite Stelle nach dem Komma abge- 
hackt (z.B. auf 0,37 oder 0,30). Die Fehler- 
quote beim Handstoppen von 256 Durch- 
läufen (A-Version) liegt bei ca. +/- 0,5 
Sekunden. Dies wären jedoch nur 0,5 : 
256 = 0,001953125 = ca. 0,002 Sekun- 
den, also ein praktisch bedeutungsloser 
Wert. Wir messen zunächst nach der A- 
Version. Sollte unser Meßwert von Ihrem 
selbstgemessenen zu Ihren Ungunsten 
abweichen, stoppen wir nach der B-Ver- 
sion. Nehmen wir an, jemand würde eine 
weltrekordverdächtige Zeit von 0,20 Se- 
kunden für 1 Durchlauf nennen. Diese sei 
ermittelt worden durch 205,1, abgerundet 
auf 205,0, geteilt durch 1024 = 0,200195 
= abgehackt auf 0,20 Sekunden. Nehmen 
wir ferner an, wir selbst hätten den total 
unwahrscheinlichen Wert von 207,6 - also 
2,5 Sekunden mehr! — gestoppt, dann wä- 
ren dies 207,6, abgerundet auf 207,5, ge- 
teilt durch 1024 = 0,202636 = abgehackt 
auf 0,20 Sekunden, also trotz extrem fal- 
scher Messung kein schlechterer Wert. 


5. Das Primzahlenprogramm darf im vor- 
aus nur zwei Zahlen kennen, nämlich die 
Untergrenze 2 und die Obergrenze 8191. 
Es darf z.B. nicht im voraus die Quadrat- 
wurzel aus 8191 = 90.50414355 kennen, 
vielmehr muß diese, falls man das Erato- 
sthenes-Verfahren benutzen will, eigens 





errechnet werden. Ob dies durch die ent- 
sprechende Applesoft-Interpreter-Routine 
oder durch eine eigene Routine erfolgt, ist 
dabei gleichgültig. Das oben beschriebene 
Sieb des Eratosthenes dient im übrigen 
nur als Anregung. Jeder beliebige andere 
mathematische Algorithmus ist zulässig. 
Ferner ist jedes beliebige Wissen um die 
Primzahlen zulässig, z.B. daß gerade Zah- 
len keine Primzahlen sind. Sollte dieses 
Wissen jedoch die Kenntnis einer oder 
mehrerer Primzahlen voraussetzen (z.B. 
der Zahl 2), dann darf von diesem Wissen 
erst dann Gebrauch gemacht werden, 
wenn diese Primzahl(en) bereits zuvor oh- 
ne dieses Wissen ermittelt worden sind. 

6. Das Primzahlenprogramm darf keinerlei 
Tabellen enthalten. Ganz plump wäre z.B., 
wenn alle Primzahlen bereits in verschlüs- 


selter Form vorlägen und mit dem Pro- 
gramm als Array eingeladen würden. Je- 
der der 256 oder 1024 Durchläufe muß 
wie ein Ei dem anderen gleichen, d.h. in 
einem nachfolgenden Durchlauf darf nicht 
auf Werte zurückgegriffen werden, die in 
einem vorangehenden Durchlauf ermittelt 
wurden. Nach jedem Durchlauf müssen 
sich alle ermittelten Primzahlen und Nicht- 
Primzahlen im Bereich 2-8191 komplett im 
Speicher befinden. Ob diese Fließkomma- 
Flags, Integerflags, Byte-Flags, Nibble- 
Flags oder Bit-Flags sind, ist demgegen- 
über gleichgültig. Nehmen wir an, ein As- 
semblerprogramm würde den Speicher- 
bereich $2000-$3FFF für die 8192 Zahlen 
reservieren, wobei etwa $2002 als Prim- 
zahl 2 auf O gesetzt würde ($2002-$2000 
= $0002), $2004 auf 1 usw. Dann darf 
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man ab dem zweiten Durchlauf nicht von 
dem Wissen Gebrauch machen, daß nun- 
mehr bereits alle Primzahlen berechnet im 
Speicher vorliegen. Vielmehr muß jeder 
Durchlauf so tun, als enthielte der Spei- 
cher Zufallswerte, so daß in jedem Durch- 
gang dieselbe Initialisierungsroutine auf- 
gerufen werden muß. 

7. Einsendeschluß ist der 15. November 
1984. Richten Sie Ihre Lösungen an Dr. 
Alfred Hüthig Verlag, Redaktion Peeker, 
Postfach 102869, 6900 Heidelberg 1. 
Von Lösungen, die hinsichtlich aller zeit- 
kritischen Routinen total identisch sind, 
wird nur die zuerst eingesandte berück- 
sichtigt. Die Programme der Gewinner des 
1. und 2. Preises werden im November- 
Heft von „Peeker“ veröffentlicht. Der 
Rechtsweg ist ausgeschlossen. 


Besuchen Sie uns auf der Apple-Expo! 


Zur Orgatechnik in Köln hat die Firma 
Apple eine komplette 5000 qm große Halle 
angemietet, in der wir mit einem eigenen 
Zeitschriften-» Bücher- und Software- 
Stand vertreten sein werden. Die Apple- 
Expo ist vom 25. bis 29. 10. 1984 täglich 
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Apple Computer GmbH 
Ingolstädter Str. 20 
D-8000 München 45 
Tel. (089) 35034-0 
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von 10.00 — 20.00 Uhr geöffnet und steht 
unter dem von Apple verkündeten Motto 
„Versuchen Sie nicht, eine Maschine zu 
werden“. indessen können wir nur 
schmunzelnd konstatieren, daß selbst die 
Firma Apple ihrer eigenen Maxime nicht 








c 
: A „ 


z. HH. 


gerecht wird, wie das bei uns eingegange- 
ne Kuvert bezeugt. Es hätte uns nicht ge- 
wundert, wenn der inliegende Brief unse- 
ren Chefredakteur mit „Sehr geehrter Herr 
Postfach“ angeredet hätte... 
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Dr. Alfred Hüthig Verlag 
Herrn Peeker 
Chefredaktion 


69200 Heidelberg 











Hinweise für Autoren 


Wir suchen laufend Beiträge: Erfahrungsberich- 
te über kommerzielle Hardware- und Software- 
Produkte, Tips und Tricks für Anwender und 
Programmierer, gut dokumentierte Programme 
für Anfänger und Fortgeschrittene, hardware- 
technische Beiträge usw. Wir zahlen DM 200,- 
pro Druckseite, gleichviel ob Text oder Pro- 
gramm, wobei ein Beitrag mehrere Druckseiten 
oder gar mehrere Aufsatzfolgen umfassen 
kann. Es lohnt sich also, für uns zu schreiben. 
Alle Textbeiträge einschließlich der Programmli- 
stings werden von einem Apple Ile direkt in die 
Lichtsatzanlage unserer Druckerei übertragen. 
Im einzelnen sind deshalb folgende Richtlinien 
zu beachten: 


Beiträge müssen sowohl als Papierausdruck 
wie auch als Diskette eingereicht werden. Zur 
Zeit können ausschließlich die klassischen 51/4 
Zoll Disketten für Apple Il/Ile/lIc angenommen 
werden. Berücksichtigt werden grundsätzlich 
nur Originalaufsätze und Originalprogramme. 
Es ist jedoch urheberrechtlich zulässig, aus 
Werken anderer Urheber zu zitieren. So können 
Sie z.B. Teile aus einem fremden Programm in 
Ihr eigenes übernehmen. In diesem Fall muß 
jedoch an geeigneter Stelle ein Zitathinweis er- 
folgen, etwa in der Form „Zeilen X-Y enthalten 
den Teil Soundso aus dem Programm ABC des 
Autors X, erschienen bei Firma Y, Ort und 
Jahr“. 

Wie im Verlagswesen üblich, übertragen Sie 
uns mit den eingereichten Aufsätzen und/oder 
Programmen das Recht der Vervielfältigung und 
Verbreitung in jeder Form. Speziell in bezug auf 
die Programme besagt dies, daß sie von uns 
nicht nur in Druckform, sondern auch in Disket- 
tenform vertrieben werden, und zwar als Pee- 
ker-Sammeldisketten, die in unregelmäßiger 
Folge erscheinen und eine Auswahl der größe- 
ren Programme als Quell- und Objekt-Code 
enthalten. Versehen Sie Ihre Programme nicht 
mit dem amerikanischen Copyright-Vermerk, 
sondern schreiben Sie statt dessen nur „Von 
Name, Ort und Jahr“. 


1. Textbeiträge 


a) Die Aufsatztexte sollten im Idealfall mit einem 
DOS-3.3-Textprogramm erstellt werden, das 
normale ASCII-Textfiles erzeugt, z.B. Applewri- 
ter Il/lle usw. Wordstar-Dateien im CP/M-For- 
mat sind ebenfalls möglich, doch müssen in 
diesem Fall die Texte endlos (ohne Silbentren- 
nung) erfaßt werden. 

b) Die Texte dürfen keinerlei Steuerzeichen für 
Matrixdrucker usw. enthalten. Überschriften 
dürfen nicht unterstrichen werden. Vielmehr 
brauchen lediglich im ausgedruckten Manu- 
skript die Überschriften sowie darüber hinaus 
im Text selbst Hervorhebungen mit einem Farb- 
stift o.ä. markiert zu werden. Die entsprechende 
Kodierung für die Satzanlage wird dann von uns 
übernommen. 
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c) Der Text muß grundsätzlich endlos erfaßt 
werden, d.h. ein Return darf nur am Absatzende 
und niemals am Zeilenende stehen, da der 
Satzrechner sonst keinen automatischen Um- 
bruch mehr vornehmen kann. Vermeiden Sie 
darüber hinaus Einzüge zu Beginn eines Absat- 
zes. Auch dies besorgt nämlich die Satzanlage 
automatisch. 

d) Ausgangspunkt unserer Kodierung ist der 
deutsche ASCIl-Zeichensatz, also mit Umlau- 
ten, B usw. anstelle von eckigen und geschweif- 
ten Klammern. Wenn Sie — z.B. beim alten 
Apple Il — keine Umlaute usw. eingeben kön- 
nen, rufen Sie uns an. Bei Texten, die sowohl 
die deutschen als auch die amerikanischen 
ASCII-Sonderzeichen enthalten sollen, z.B. bei 
Pascal-Aufsätzen, müssen die letzteren kodiert 
werden. Kodierung bedeutet, daß eine Buchsta- 
benkombination, z.B. „Sp“ für griechisches st 
durch unser Transmitter-Programm in den ent- 
sprechenden Kode der Satzanlage konvertiert 
wird. 

e) Vermeiden Sie unnötige Einrückungen und 
Kurztabellen. Ferner mischen Sie bitte nicht 
Aufsatztexte mit Programmtexten, da letztere 
gesondert in die Satzanlage übertragen werden. 
Größere Tabellen, die von uns konventionell 
gesetzt werden, sind auf gesonderten Textfiles 
zu speichern. Es genügt, wenn Sie senkrechte 
Trennlinien mit Kuli o.ä. andeuten. Schaubilder 
usw. sind stets willkommen. Hierzu genügen 
Bleistiftskizzen als Vorlagen für unsere Rein- 
zeichner. 

f) Achten Sie bitte auf Orthographie und Inter- 
punktion. Deutsch ist immer noch eine wichti- 
gere Sprache als Basic und Assembler! 


2. Programmlistings 


Beachten Sie, daß wir im Gegensatz zu anderen 
Computer-Zeitschriften Programmlistings nicht 
von den meist sehr häßlichen Printouts abpho- 
tographieren, sondern wie die Textbeiträge von 
Diskette in die Satzanlage übertragen, wobei 
eine besondere Schreibmaschinen-Lichtsatz- 
schrift verwendet wird. Nur bei exotischen Pro- 
grammiersprachen wählen wir z. Zt. noch den 
konventionellen Weg. 


applekompatibel NF555 


140 - 250 KB 


geräuschlos durch Direkt- 
Antrieb, autom. Ge- 
schwindigkeitsregelung. 


DM 595,- 


Floppy-Speiche 









2.1. Basic-Programme 


a) Applesoft-Programme usw. liefern Sie bitte 
als normale Programm-Files, die von uns für die 
Satzanlage aufbereitet werden. 

b) Zeilennummern sollten stets dieselbe Stel- 
lenzahl haben, z.B. nur 3stellige Zeilennum- 
mern 100, 110, 120 o.ä., damit diese Zahlen 
von uns korrekt freigestellt werden können (RE- 
NUMBER anwenden). 

c) REM’s sollten der besseren Lesbarkeit halber 
möglichst in Groß-Klein-Buchstaben geschrie- 
ben werden. 

d) Menü-Texte, REM’s usw. müssen unbedingt 
in Deutsch sein. Englischsprachige Programme 
werden nicht angenommen. Englische Compu- 
ter-Fachausdrücke sind demgegenüber selbst- 
verständlich zulässig. 


2.2. Assembler-Programme 


a) Assembler-Programme sind als Source- 
Code und als Objekt-Code auf Diskette einzu- 
reichen. Wir bevorzugen den Assembler na- 
mens Merlin (= Big Mac) von G. Bredon. Ver- 
wendbar sind ferner Lisa 2.5, Toolkit-Assem- 
bler, ProDOS-Assembler sowie jeder andere 
Assembler, bei dem die Möglichkeit besteht, 
anstelle auf Papier auf Diskette zu assem- 
blieren. 

b) Der Source-Code sollte möglichst im 40- 
Z/Z-Modus geschrieben werden, damit die 
assemblierten Listings in der Zeitschrift 2spaltig 
gesetzt werden können. In der Kommentarspal- 
te des Source-Codes sollten nur ganz kurze 
Bemerkungen stehen. Längere Kommentare 
schreibe man über die Befehle in reine Kom- 
mentarzeilen, wobei auch diese 40 Zeichen pro 
Zeile nicht überschreiten sollten. 

c) Vermeiden Sie Makros und seltene Pseudo- 
Op-Codes, damit der Quell-Code ohne großen 
Aufwand in einen anderen Assembler konver- 
tiert werden kann. 


2.3. Sonstige Programme 


Programme in selteneren Programmierspra- 
chen sind willkommen, erfordern jedoch eine 
vorherige Absprache wegen der Konvertie- 
rungsmöglichkeit. Ggf. muß ein Schönschreib- 
drucker-Printout erstellt werden. 
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Computer-Studio, 
Ringstraße 70, 
2300 Kiel 1, 
Telefon 04 31/6766 








Individuelle Zeichensätze für Matrixdrucker 


Der DMP-Charger der Firma Nor- 
bert Hunstig in Münster ist ein Zei- 
chensatz-Generator-Programm, 
das in Pascal geschrieben wurde 
und zur Erstellung eigener Zei- 
chensätze für den Apple Dot Matrix 
Printer, den Apple Imagewriter und 
den Epson FX 80 dient. Die neuen 
Zeichen sind Buchstaben, keine 
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Grafik. Sie werden vom DMP 
Charger geladen und können da- 
nach von jedem beliebigen Pro- 
gramm (zZ. B. Applewriter) benutzt 
werden. Die Umschaltung erfolgt 
jeweils durch eine ESC-Sequenz. 
Es können bis zu 95 Zeichen um- 
fassende Zeichensätze erstellt 
werden. 


AO &£o9 


Die einzelnen Zeichen werden 
zum Editieren in 10facher Vergrö- 
Berung auf dem Bildschirm darge- 
stellt. Dabei hat man jederzeit den 
Überblick über das zu bearbeiten- 
de Zeichen, d. h. man sieht auch, 
wie das jeweilige Zeichen auf dem 
Drucker aussieht. Die einzelnen 
Zeichen sind auch nach Erstellung 
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eines Zeichensatzes korrigierbar. 
Ein Zeichensatz-Drucker ist ne- 
benstehend abgebildet. 
Bezugsquelle: Norbert Hunstig, 
Labor für Nachrichtentechnik, Not- 
tulner Landweg 81, 4400 Münster, 
Tel. 02534/7449, Telex 892496 


AFC-Tastatur mit Mausfür Apple 


Will der Benutzer bereits beste- 
hende Apple-Programme mit Maus 
oder Rollball bedienen, so ist er 
gezwungen, ein zusätzliches Inter- 
face in seinen Rechner zu integrie- 
ren und vor allem seine Software 
anzupassen. 

Das Ziel, ohne jegliche Anpas- 
sung, weder auf Hard- noch auf 
Softwareebene, jedem Benutzer 


ein bequemes, zeitgerechtes Ein- 
gabemedium zur Verfügung zu 
stellen, wurde durch die Verknüp- 
fung intelligenter Tastatur und 
Maus erreicht. An die Tastaturen 
ALPHAKEY und OPERATOR der 
Firma AFC Computer, Köln, kön- 
nen Rollball oder Maus direkt an- 
geschlossen werden (siehe Abbil- 
dung). Die Tastaturen stellen hier 


das intelligente Interface für beide 
Eingabemedien dar. 

In jedem Programm wird die aktu- 
elle Cursorposition mit den Cur- 
sortasten der Rechnertastatur be- 
wegt. Wird nun eine an die er- 
wähnten Tastaturen angeschlosse- 
ne Maus zum direkten Cursorposi- 
tionieren bewegt, so werden die 
Maussignale von der Tastatur in 
wiederholte Cursorbefehle umge- 
wandelt. 

Ein an diese Tastaturen ange- 
schlossener Rollball verhält sich 
ähnlich wie eine Maus, der einzige 
Unterschied liegt im wahrsten Sin- 
ne des Wortes auf oder in der 
Hand, da der Rollball stationär auf 
dem Tisch liegt und somit platz- 
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sparend dem Benutzer den ge- 
wünschten Komfort bietet. 

Neben der vereinfachten Möglich- 
keit, den Cursor zu bewegen, kön- 
nen mit den zusätzlichen Tasten 
auf der Maus oder dem Rollball 
häufig benötigte Befehle abgeru- 
fen werden, ohne die Hand auf die 
Tastatur zurückführen zu müssen. 
Bei der Bearbeitung von Texten 
bietet sich z. B. das Umschalten 
auf Einfügen oder Überschreiben 
sowie das gezielte Löschen von 
Buchstaben oder Textteilen an. 
Bezugsquelle: AFC Computer 
GmbH, Salmstr. 20, 5000 Köln 91, 
Tel. 0221/838000, Telex 8873254 
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Copy Killer 


Der Copy Killer der Firma Mattes 
Computersysteme (früher Hama- 
soft) in Albstadt ist ein professio- 
nelles Kopierschutzsystem für den 
Apple Il. Mit dem Copy Killer ist es 
möglich, normale 5 1/4-Zoll-Dis- 
ketten vor „Raubkopierern“ zu 
schützen. Zunächst wird eine 
Slave-Diskette angelegt. Auf diese 
Slave-Diskette wird dann die Origi- 
nal-Diskette kopiert. 

Die so kopierte Diskette ist kopier- 
geschützt und läßt sich auch mit 
den bekannten Bit-Kopierprogram- 
men wie Nibbles Away, Locksmith 
usw. nicht mehr kopieren. 
Besonderheit: Beim Kopieren auf 
eine Slave-Diskette kann eine 
Boot-Meldung mit eingegeben 
werden. Diese Boot-Meldung wird 
beim Booten der Diskette ange- 
zeigt. So kann z. B. jede Diskette 
individuell mit einer Serien-Num- 
mer versehen werden. 

Wir haben das Programm ausführ- 
lich getestet. Es besteht übrigens 
aus 2 in Applesoft geschriebenen 
Teilmodulen, die durch ein ge- 
meinsames Hello-Programm auf- 
gerufen werden und erstens der 
Initialisierung einer Leerdiskette im 


65C02 + Accelerator: 


Der 65C02-Prozessor sowie die 
Accelerator-Karte, insbesondere 
die neue für den Apple Ile, sind 
z. Z. in Deutschland noch schwer 
erhältlich. Aufgrund einer Händler- 
umfrage nennen wir Ihnen in der 
Reihenfolge der Postleitzahlen 
nachfolgend Apple-Händler, die 
den 65C02 (1) und/oder die Acce- 
lerator-Karte (2) ab Lager liefern 
können: 

— pandasoft Dr.-Ing. Eden, Uh- 
landstr. 195, D-1000 Berlin 12, (2) 
— intermicro software & computer 
GmbH, Winterhuder Weg 48, D- 
2000 Hamburg 76, (1), (2) 

— Hans Schröder Computersyste- 
me GmbH, Föhrenstr. 19, 2800 
Bremen 1, (1) 

— UNITRONIC Vertriebs GmbH, 
Manskestr. 29, D-3160 Lehrte, (1) 
— weidemann electronic, Postfach 
48, D-5455 Rengsdorf, (1) 

— computermarkt R. Sattler, 
Braunstr. 4, D-6120 Michelstadt, 


(2) 
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geschützten DOS 3.3-Format (Op- 
tion CREATE) sowie zweitens der 
Übertragung der ungeschützten 
Programmvorlage auf die Leerdis- 
kette dienen (Option TRANSFER). 
Beispielsweise ließ sich eine derart 
präparierte Programmdiskette mit 
Locksmith-Version 5.0 nicht mehr 
kopieren. U.a. arbeitet das Schutz- 
verfahren mit stark geändertem Ti- 
ming. Ferner sind auch die Sekto- 
ren-Erkennungs-Bytes geändert 
bzw. fehlen ganz, so daß von ei- 
nem weitestgehend zuverlässigen 
Schutzverfahren gesprochen wer- 
den kann. 

Als Nachteile des Copy Killers sind 
im einzelnen zu nennen, daß er- 
stens nur DOS 3.3-Disketten, also 
z. B. keine ProDOS- oder Pascal- 
Disketten geschützt werden kön- 
nen, und daß zweitens ein Um- 
schalten zwischen geschützter 
Programmdiskette und unge- 
schützter Datendiskette offenbar 
nicht möglich ist, so daß Datendis- 
ketten nicht konventionell mit z. B. 
COPYA gesichert werden können. 


Bezugsquelle: Mattes Computer- 
systeme (Hamasoft), Theophil- 
Wurm-Str. 2, Tel. 07432/13316, 
Telex 763317 


Wer liefert was? 


— Schöpp GmbH Telecommunica- 
tion, Bahnstr. 79, D-6140 Bens- 
heim, (2) 

— GSG Geräte-System-Ges. mbH, 
Am Weissen Stein 1/3, D-6330 
Wetzlar 26, (2) 


— ORGASOFT GmbH Organisa- 


tionsberratung + Software, Wer- 
ner-von-Siemens-Str. 3, D-7730 
VS-Villingen, (2) 

— computerfachgeschäft GmbH, 
Maximiliansplatz 22, D-8000 Mün- 
chen 2, (2) 

— Mikrocomputer Vertriebsgesell- 
schaft mbH MKV, Landwehrstr. 75, 
D-8000 München 2, (2) 

— Hard- u. Software-Büro Dipl.- 
Kfm. Richard Zeitler, Holzfällerstr. 
4, D-8400 Regensburg, (2) 

— bürosysteme Heinz Ott GmbH, 
Steigbeetstr. 11, D-8500 Nürnberg 
50, 12) 

— target electronic Ing. ©. Aistleit- 
ner, Reichstr. 123 a, A-6800 Feld- 
Kirch, (2) 


Sony-Laufwerke von Ueding 


Die Firma Ueding electronics, Hol- 
tewiese 2, 5750 Menden 1, liefert 
seit kurzem Sony-Laufwerke (sie- 
he Abbildung) mit Patch-Diskette 
für DOS 3.3, CP/M 2.2, Pascal 1.1. 
Für ProDOS sind Patch-Program- 
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me in Vorbereitung. Die Laufwerke 
sind für den Apple || gedacht. Ein 
ausführlicher Testbericht ist für das 
November-Heft von „Peeker“ ge- 
plant. 
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Bidirektionaler Datenverkehr 


zwischen Apple 


und Brother-Typenradschreibmaschine 


Die elektronische Typenrad- 
schreibmaschine Brother CE-50 
mit speziellem bidirektionalem In- 
terface für Apple Il/lle bietet die 
Firma interkom electronic in Isern- 
hagen an. 


Durch die Entwicklung maßge- 


schneiderter Hard- und Software - 


für das Interface konnten Möglich- 
keiten geschaffen werden, die 
sonst nur Systeme deutlich höhe- 
rer Preisklassen aufzeigen. So 
wird eine Vielzahl von zusätzlichen 
Sonderfunktionen erreicht, z. B. 
automatisches Unterstreichen, 
hoch- und tiefstehende Zahlen, 
Vorwärts- und Rückwärtstransport 
USW. 


Durch die Möglichkeit des bidirek- 
tionalen Betriebs wird die Typen- 
radschreibmaschine nicht nur zum 


Korrespondenzdrucker, sondern 
auch zur Eingabetastatur für den 
Apple. 


Das System unterstützt alle gngi- 
gen Textverarbeitungsprogramme, 
die auf Apple- oder Apple-kompa- 
tiplen Rechnern laufen, außerdem 
CP/M, Pascal, Fortran und Apple- 
soft (siehe Abbildung). 


Bezugsquelle: intercom electronic, 
Kock & Mreches GmbH, Am Hei- 
sterholz 5, 3004 Isernhagen 4, Tel. 
05139/87393, Telex 923827 





Apple DOS 3.3 


von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., DM 28,- 
ISBN 3-7785-1049-5 

Hüthig Verlag, Heidelberg 


Dies ist die erste deutschsprachige 
Darstellung des Diskettenbetriebs- 
systems DOS 3.3 für den Apple II/ 
II Plus/lle, die sich sowohl an App- 
lesoft- als auch an Assembler-Pro- 
grammierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 


Der erste Teil behandelt ausführ- 
lich die dem Applesoft-Program- 
mierer zur Verfügung stehenden 
DOS-Befehle, wobei die Textfiles 
wegen ihrer großen Bedeutung 
und der vergleichsweise kompli- 
zierten Handhabung besonders 
dargestellt werden. Viele Textfile- 
Tricks werden hier zum erstenmal 
geschildert. 
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Aber auch im zweiten Teil findet 
der reine Applesoft-Programmierer 
insbesondere in dem Kapitel „Ver- 
mischte Tips, Tricks und Patches“ 
zahlreiche Anregungen. Im übri- 
gen ist der zweite Teil für Assem- 
bler-Programmierer gedacht. Ne- 
ben einer detaillierten Beschrei- 
bung der DOS-Interna enthält die- 
ser Teil elf vollständige RWTS-An- 
wenderprogramme - z.B CPM-Re- 
finer, DOS-lose Datendisk, TSL- 
Maker, File-Reader, Pseudo-Disk- 
Driver und Fastbrun-Routine — ‚die 
Techniken enthüllen, die bislang 
noch niemals publiziert worden 
sind. Dieses DOS-Buch ist des- 
halb der unentbehrliche Begleiter 
für jeden Apple-Programmierer. 


Aus dem Inhalt: 

DOS für Benutzer von Anwender- 
programmen — DOS für Applesoft- 
Programmierer — DOS für Assem- 


bler-Programmierer — Catalog, TSL 
und VTOC — Fehlermeldungen — 


Vermischte Tips, Tricks und 
Patches — GETLN, RDKEY und 
COUT: Input-Output-Vektoren — 
DOS-Vektoren ab $03DO — RTWS 
(Read-Write-Track-Sector) 


Mathematische + Wissen- 
schaftliche Programme in 
Basic 


von Ekkehard Flögel 

1984, 142 S., zahlr. Abb., kart., DM 
29,80 

ISBN 3-88963-102-9 

Hofacker, Holzkirchen 


Das vorliegende Buch enthält eine 
Sammlung von mathematischen 
Programmen, die größtenteils LÖ- 
sungen praktischer Probleme dar- 
stellen. Die heutigen Heimcompu- 
ter machen es möglich, mathema- 
tische Aufgaben auf einfache Art 
zu lösen, die noch vor wenigen 
Jahren nur sehr schwerfällig zu lö- 
sen waren. 

Die Auswahl der Programme ist 
natürlich nicht vollständig. Auf Sta- 
tistikprogramme ist in diesem Buch 
verzichtet worden, da diese in 
„Statistik in BASIC" (ebenfalls 
Hofacker-Verlag) bereits enthalten 
sind. 

Die Beispiele reichen von der ein- 
fachen Zinseszins- und Renten- 
rechnung bis zur Lösung eines 
Randwertproblems. Viel zu wenig 
ist bekannt, daß auch Rechnungen 
mit Polynomen, die heute vielfach 
noch ohne Computer durchgeführt 
werden, auch mit einem Mikro- 
computer realisierbar sind. 
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Aus dem Inhalt: 

Elementare Mathematik — Funktio- 
nen und Polynome — Komplexe 
Zahlen, Vektoren, Matrizen — Li- 
neare Gleichungssysteme — Aus- 
gleichrechnung — Numerische In- 
tegration von Differentialgleichun- 
gen — Program Evaluation and Re- 
view Technique (PERT) — Lösung 
des Dirchiletproblems durch Diffe- 
renzverfahren — Lineare Regres- 
sion — Lineare Planungsrechnung 
— Fourier Analyse — Algebra 


Statistik in Basic 


von Ekkehard Flögel 

1984, 214 S., zahlr. Abb. und Ta- 
bellen, kart., DM 39,- 

ISBN 3-88963-188-6 

Hofacker, Holzkirchen 


In den letzten Jahren ist es durch 
wachsende Verbreitung der Heim- 
computer immer einfacher gewor- 
den, Daten zu sammeln und aus- 
zuwerten. Das vorliegende Buch 
enthält eine Sammlung von Stati- 
stik-Programmen, die in BASIC 
geschrieben sind, und zwar über- 
wiegend in Applesoft sowie dar- 
über hinaus in IBM-PC-BASIC. 

Es wird gezeigt, wie Balkendia- 
gramme gezeichnet, statistische 
Kennzahlen ermittelt oder statisti- 
sche Prüfverfahren angewendet 
werden. 


Zu jedem Programm ist ein Bei- 
spiel angegeben. Hier wurde vor 
allem mit Musteraufgaben aus der 
Literatur gerechnet, für die Ergeb- 
nisse vorlagen, die ohne Verwen- 
dung eines Rechners ermittelt 
wurden. 


Die Theorie zu den Beispielen ist 
kurz gehalten. Dieses Buch soll 
kein Lehrbuch für Statistiker sein, 
sondern zeigen, wie statistische 
Berechnungen auf einfache Art in 
BASIC formuliert werden. 


Aus dem Inhalt: 

Darstellung der Daten — Grafische 
Darstellung von Daten — Statisti- 
sche Kennzahlen — Wahrschein- 
lichkeitsrechnung — Markov-Analy- 
se — Diskrete statistische Vertei- 
lungen — Die Normal Verteilung — 
Statistische Prüfverfahren — Para- 
meterfreie Testverfahren — Va- 
rianzanalyse — Lineare Regression 
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STATISTIK 
IN BASIC 


EINFÜHRUNG, 
PRAKTISCHE ANWENDUNGEN, 
PROGRAMMBEISPIELE 





— Die mehrfache lineare Regres- 
sion — Autokorrelation — Nichtlinea- 
re Regression — Vorhersagen und 
Trendberechnungen -— Statistik 
und Glücksspiel 


Apple Il leicht gemacht 


von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., DM 
28,- 

ISBN 3-88745-031-0 
Sybex-Verlag, Düsseldorf 


Dies ist ein Buch, wie es sich jeder 
Apple-Anfänger nur wünschen 
kann: Schrittweise, leichtverständ- 
liche Anleitung zum Umgang mit 
dem Apple mit einigen durchsichti- 
gen, unkomplizierten Beispielen in 
Applesoft, die ihn nicht abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher vertraut 
zu machen. Damit ist „Apple Il 
leicht gemacht“ das ideale Einstei- 
gerbuch für den reinen Anwender, 
der nicht nur „auf den Knopf drük- 
ken“, sondern zumindest einige 
Details der Black Box namens 
Apple erfahren will. 


Aus dem Inhalt: 

Kontrolle des Geräts — Schreiben 
und Zeichnen auf dem Bildschirm 
— Geheimnisvolle Abläufe: Pro- 
gramme — Verschiedene Eingriffs- 
möglichkeiten — Mobile Speicher: 
Disketten — Kontrollmöglichkeiten 
— Das Innenleben 











Apple lie 64 KB 
Apple Disk Il m.C. DM 1.020,- 
Apple Disk Il 2. LW DM 798,- 
Duo Disk 2 x 143 KBm.C. DM 1.750,- 
Apple II Monitor DM 476,- 
Matrixdrucker Itoh 8510 A DM 1.500,- 
Imagewriter 80 Z incl. Kt DM 1.480,- 
80 Zeichen / 64 KB Ile DM 637,- 
Z-80 Card DM 140,- 
16 K-Karte DM 140,- 
Akustikkoppler m. FTZ DM 695,- 
Macintosh DM 6.200,- 
Macintosh 2. LW DM 1.184,— 


2.000 Bl. TAB - papier 240 x 12” 
weiß, perforier DM 47,- 


Abdeckhaube Ile DM 48- 


DM 2.195,— 


Abdeckhaube Mac DM 48, 


Abdeckhaube Itoh 810A DM _21,- 
Apple lic 128 KB DM 2.800,- 
Apple lic 2. LW DM 820,- 
Apple lic Monitor DM 495,- 
Apple lic Ständer DM 98, 
Apple Writer Ile DM 490,- 
Lagerhaltung DM 550,- 
Kundenkartei DM 450,- 


Alle Preise verstehen sich zuzügl. MwSt. 
Lieferung per Nachnahme. 
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Organisationsberatung + Software 


Organisationsberatung + Software 
Microcomputer 


Werner-v.-Siemens-Straße 3 
7730 VS-Villingen 
Telefon 07721/72213 + 72223 





Vorschau 


D.0.S. Computersysteme 


Der Spezialist für Schulen, 
Universitäten, Techniker! 





Aus unserem umfangreichen Angebot: 


Profimax II mit 64K RAM, Apple Il- 
comp., 6502 + Z80, progr. Tastatur 


num. Block, 5A-Netzteil ..................... 1248,— 
Profimax Ill, wie oben, im Profigehäuse 

mit IBM-Tastatur ......eecceeeesseneeennnneeennn 1448,- 
Motherboard Profimax ....................... 798,- 
Profimonitor, Metallgehäuse, 22 MHZ, 

12, bemsteln anne 398,— 
Monitor Heath/Zenith ZVM 123, grün, 
15:.MHZ mn 308,— 
Tastatur aus Profimax II .................... 198,- 
IBM-Tastatur, ASCII, anschlußfertig 

an Apple 0. - COMP. ....zzureensenennnennennen 348,— 


IBM-Tastatur, deutsche Belegung ...... 398,— 
TEAC 55A, kompl. m. Kabel u. Geh., 


anschlußfertig an Apple-Contr. .......... 648,- 
TEAC 55F, 2 x 80 Spuren, modif. für 
Betrieb an Apple ........unuenennnneensneenennn- 798,—- 
Winchester-Laufwerk, 10 MB,Geh., 

Netzt., Kabel, Software, Contr. .......... 5498,— 
Disk II Controller ............20us0200020000000000 148,— 
Contr. für alle 5 1/4” Laufwerke, mit 

Patch für DOS, CP/M, PASCAL ......... 248,— 
Languagecard (16K-Karte)................. 148,- 
Z80-SOfCard -....000.0enerashehennennee 148,— 
80Z-Karte, Softswitch, 2 Zeichens. .... 268,- 
80Z-Karte mit 4 Zeichensätzen .......... 268,— 
Druckerinterface, par. (= Centr.), 

für NEC 8023B/N, ITOH 8510 ........... 298,- 
Epromburner für 2716-2764 .............. 248,— 
AD-Wandler, 333ms Wandelzeit ........ 288,— 
Drucker NEC 8023B/N 

(= TOHBII0) en 1498,— 
Typenraddrucker JUKI 6100 I!!! ......... 1898,- 
Typenradschreibm. Olympia electr. 

compact 2, Centronics-Schnittst. ....... 1498,- 
Plotter Pixy 3, DINA4 ....nneeneseeenen 2498,- 
Disks Scotch, SS, DD, 744 RH, 

I SE ee 70,- 


Unsere Stärke ist die Beratung! Fordern Sie 
unseren ausführlichen Katalog an (DM 2,- in 
Briefmarken). 


D.O.S. Computersysteme 
Martin Götzer 


Am Kühnbach 42 - 7170 Schwäbisch Hall 11 
Telefon 0791/54227 


Im nächsten Heft, das Ende November erscheint, lesen Sie u.a. 
— Wie man die Grafik verdoppelt 


Teil 2: Double Hires 


— Ampersand macht’s möglich 


INSTRING-Befehl in Applesoft 
Block-Tracer für ProDOS 
ProDOS für Anfänger, Teil 1 


IF-THEN-ELSE-Befehl 
simuliert in Applesoft 


Prometric 
Ein Apple-Kompatibler mit 65C02 


Hardware-Test: 3,5-Zoll-Laufwerke 


66. 


ProDOS-Editor 1.0 


Applesoft-Editor 
unter ProDOS-Betriebssystem 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 


Mit diesem neuen Editor — übrigens 
der bislang einzige deutsche Pro- 
DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 


- Betriebssystem ProDOS gegeben, 


denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 
fähig. 


Unter anderem sind folgende Fea- 
tures implementiert worden: 


— Zeilenorientierter Editor mit jedem 
erdenklichen Redigierkomfort (In- 
sert, Delete, Tab, Restore, freie 
Cursorbewegung in allen vier Rich- 
tungen, Eingabe von Citri-Buchsta- 
ben in Applesoft-Zeilen usw.) 


— Renumber 
rung) 


(Zeilen-Umnumerie- 


— Xreference (sortierte Variablen- 
liste) 


— Suchen von Tokens, Strings und 
Variablen 


— dezimale und hexadezimale Um- 
rechnung 


— Ausführung von Monitorbefehlen 
aus dem Editor heraus 


— Listen des Applesoft-Programms 
in speicherinterner Form als Hex- 
Dump 


— Suchen von Hex-Folgen, Adres- 
sen oder Speicherstellen im ge- 
samten RAM-Bereich einschließ- 
lich der Language-Card 


— frei definierbare Tastatur-Macrobe- 
fehle 


Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 


Gerätevoraussetzung: Apple Il+, Ile 
oder IIc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 





Sie haben einen Apple... 





wir haben die 
Bucher... 





22 PASCAL-Programme, mit denen Sie 
die Grafik-Möglichkeiten Ihres Apples 
voll ausschöpfen: 

DESIGNER ermöglicht es Ihnen, eigene 
Zeichensätze zu entwerfen; 

GREDIT unterstützt Sie beim Entwerfen 
und Abspeichern kompletter Bild- 
schirmgrafiken; 

PRINTFOTO bringt Ihre Entwürfe aufs 
Papier. 

Darüberhinaus bietet das Buch eine 
Fülle fertiger Prozeduren, die Sie zeit- 
sparend in Ihre eigenen Programme 
einbauen können. 























ISBN: 3-89058-009-2 
komplett mit Disk DM 89,-- 


Das Assembler-Lehrbuch für BASIC- 
Kenner. Roger Wagner, der Autor vieler 
bekannter Software-Pakete, schrieb 
eine monatliche Kolumne über 
Assembler-Programmierung in der 
APPLE-Zeitschrift SOFTALK. 

Der vorliegende Band faßt diese Reihe, 
korrigiert und erweitert, zusammen: 
Eine stufenweise Einführung in die 
Befehle und Strukturen der 
Assemblersprache, mit vielen Beispie- 
len von der einfachen Tongenerierung 
bis zum Diskettenzugriff. 


ISBN: 3-89058-003-3 DM 48,-- 
komplett mit Disk DM 89,-- 





panday®&ft: 


UHLANDSTR. 195 - D- 1000 BERLIN 12 
: TELEX:185859 


TEL.OS3O) 310 423 
Autorisierter @gappie Fachhändler MicROsOFT. Distributor 


ALLES FÜR DEN APPLE II, Ii*, IE 













































Eine detaillierte Beschreibung der 
Apple II-Schaltungen. 

Wenn Sie Ihren Apple selbst reparie- 
ren, Interface-Karten oder 
Schaltungserweiterungen entwerfen 
oder einfach nur besser über das 
Innenleben Ihres Apples Bescheid 
wissen wollen - dieses Buch bietet 
Ihnen eine Fülle an Informationen: 
Schaltpläne und Zeitdiagramme, 
Theorie und praktische Tips. 


ISBN: 3-89058-012-2 


Raster Grafik 






DERRTRESESRIERTSTT EST RIRSESESSESALSTN 


Die Qualität kommerzieller Arcade- 
spiele läßt sich mit APPLESOFT BASIC 
alleine nicht erreichen. Jeffrey Stanton 
führt in die Eigenarten der hochauf- 
lösenden Apple-Grafik ein und präsen- 
tiert schließlich eine Reihe extrem 
schneller Assembler-Routinen, mit 
denen Sie viele Effekte bekannter 
Spiele selbst programmieren können. 
Gute BASIC-Kenntnisse werden voraus- 
gesetzt, eine Einführung in Assembler- 
Programmierung wird gegeben. 
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ISBN: 3-89058-006-8 
komplett mit Disk DM 89,-- 





Endlich anspruchsvolle Computergrafik 

für BASIC-Programmierer! 

Mikrocomputer Grafik 

- enthält fast 80 lauffertige BASIC- 
Programme, die die beschriebenen 
Grafikkonzepte illustrieren 

- ist für den Anfänger geschrieben und 
erfordert nur elementare Mathe- 
matikkenntnisse 

- enthält Techniken zur Erzeugung 
dreidimensionaler Grafiken in zwei 
Dimensionen, Hidden Line- und 
Hidden Surface-Methoden und 
Skalierung, Rotation und Translation 
von Grafiken 

- bietet eine Einführung in die 
Animationstechnik 


ISBN: 3-89058-000-9 s 
komplett mit Disk DM 89,-- 





-Ing. Eden 
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Apple ProDOS für Auf- 
steiger 


Band 1 


von Ulrich Stiehl 

1984, 202 S., kart., DM 28,- 
ISBN 3-7785-1027-4 
Hüthig Verlag, Heidelberg 


ProDOS ist das neue „professio- 
nelle DOS“ (Professional Disk 
Operating System) für den Apple 
Ile sowie den mit einer Language 
Card ausgestatteten Apple Il Plus. 
Reine Applesoft-Programmierer, 
die bereits unter DOS 3.3 pro- 
grammiert haben, werden sich 
schnell an ProDOS gewöhnen, da 
die diesbezüglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 

Sinngemäß liegt das Schwerge- 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger“ auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen. 
Insbesondere sind alle früheren 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl Programmbeispielen 





Assemblerprogramme unter Pro- 
DOS nicht mehr lauffähig und be- 
dürfen einer intensiven Überarbei- 
tung. Band 1 befaßt sich überwie- 
gend mit den theoretischen 
Grundlagen von ProDOS, der in- 
ternen und externen Speicheror- 
ganisation und enthält grundlegen- 
de Beispielprogramme für Assem- 
bler-Programmierer sowie gene- 
relle Untersuchungen zum BASIC- 
‚SYSTEM. Da ProDOS über erheb- 
lich vielfältigere und leistungsfähi- 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver- 
fügt, sind theoretische Kenntnisse 
von ProDOS unabdingbar, wenn 
man die Features von ProDOS voll 
ausschöpfen will. 


Aus dem Inhalt: 

Ein erster Überblick — ProDOS und 
DOS 3.3 - Interne Speicherorgani- 
sation — Externe Speicherorgani- 
sation — MLI (Machine Language 
Interface) — ProDOS für Applesoft- 
Programmierer 








